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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

THIS DIAGNOSTIC PROGRAM CHECKS THE FUNCTIONALITY OF THE 
VTV31=-K_VIDEO alk Age F TEN TESTS ARE PROVIDED TO VERIFY 
THE VTV31-K HARDWARE, AND IN ADDITION, ONE TEST OUTPUTS 
PATTERNS FOR SETTING UP A DISPLAY MONITOR. 


THE TESTS ARE AS FOLLOWS: 


TEST 1 = REGISTER NXM 

TEST 2 ~ REGISTER ACCESS 

TEST 3 = REGISTER ADDRESS UNIQUENESS 
TEST 4 = REGISTER BIT SET 

TEST 5 = PICTURE STORE DATA 

TEST 6 = PICTURE STORE COLUMN ADDRESSING 
veer ‘ - os STORE LINE ADDRESSING 
TEST 9 = PRES 

TEST 10 = VIDEO ENABLE 

TEST 11 = DISPLAY ADDRESSING 

TEST \¢ - OFF 

TEST 13 = PATTERN GENERATOR 


REGISTERS AND T HE CSR READ TO CONFIRM THAT THE REQUIRED 

OPERATION _IS PERFORMED. TESTS 10 TO 13 ARE VISUAL ONLY. 

ALTHOUGH THEY WILL RUN WITHOUT a DISPLAY MONITOR, NO CHECKS 
ARE MADE BY THE PROGRAM. OBSERVATION BY THE OPERAT 

THEREFORE REQUIRED TO FULLY yt THE VTV31K. IN TEST 13, 

THE OPERATOR CAN CONTROL THE RATE OF CHANGE OF THE DISPLAYED 

ah ad SELECTING MANUAL CONTROL IN THE STARTUP 


IN SEVERAL OF THE TEST DESCRIPTIONS, PICTURE STORE CONTENTS ARE 
REFERRED TO BY DATA VALUE. THESE DATA VALUES CORRESPOND TO THE 
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FOLLOWING COLOURS:=- 
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EXECUTION TIMES VARY WITH THE CPU TYPE. THE FOLLOWING ARE 
TYPICAL TIMES OBSERVED ON A PDP-11/23 SYSTEM: 


ALL _TESTS 16 MINUTES 25 SECONDS 
TESTS 1-9 14 MINUTES 40 SECONDS 
TESTS 10-13 ! MINUTE 45_SECONDS 

TEST 5 10 MINUTES 30 SECONDS 


THE PROGRAM SUPPORTS UP TO 20 UNITS, ALL SELECTED TESTS 
BEING RUN _ON ONE UNIT BEFORE ag id NG TO THE NEX F 

DURING ONE PASS, THE NUMBER OF ERRORS DETECTED 7 A att 
EXCEEDS A MAXIMUM VALUE (REQUESTED AT STARTUP) UNIT 

IS DROPPED FROM TESTING. UNIT DROPPING IS PREVENTED 1F EITHER 
THE IDU OR LOE FLAGS HAVE BEEN SELECTED. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE toga de g E THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ge gf 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR AC THE RUNTIME SERVICES, REFER 
TO THE XXDP*+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 
PDP=11 PROCESSOR WITH 16K OR MORE OF MEMORY. 
8: CONSOLE TERMINAL WITH INTERFACE ADDRESS 771360. 
C. XXDP+ SUPPORTED LOAD DEVICE (RX,.RM,RK,TM ETC.) 
OR PAPER TAPE READER. 
D. COLOUR DISPLAY MONITORS (1 FOR EACH VTV31-K). 
1.3 RELATED DOCUMENTS AND STANDARDS 
XXDP+ USER'S MANUS‘. CHQUS 
1.4 DIAGNOSTIC HIERARCY PREREQUISITES 
BEFORE RUNNING THIS DIAGNOSTIC, THE APPROPRIATE PDP=11 CPU, 
MEMORY AND PERIPHERAL DIAGNOSTICS SHOULD BE RUN TO VERIFY 
CORRECT OPERATION OF THE SYSTEM. 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 
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2.1 COMMANDS 


THERE ARE ELEVEN LEGAL COMMANDS Ae THE A ee gh be ae a — 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


EFFECT 

























START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE en es ag WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE_ACTIVE AT START TIME 

DROP DEACTIVATE A_UNIT 

PRINT PRINT STATiSTICAL INFORMATION (IF IMPLEMENTED 
BY i DIAGNOSTIC = SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 


ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. 
YOU MAY, FOR EXAMPLE, TYPE ‘'STA’’ INSTEAD OF *'START"’. 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY ee te OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMAN L OF hong LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD"’. 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBE S XAMPLE = /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1, by 7,8, 9. 10 TO 
BE L OTHER TESTS WILL NOT B 
/PASS :DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO Wi? 6005 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 


ON 2.3. 
/EOP: DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1~5/PASS : 1000/E0P: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. 

SWITCH CAN BE RECOGNIZED SY THE FIRST THREE CHARACTERS. YOU MAY, 
OR EXAMPLE, TYPE '/TES:1-5" INSTEAD OF '/TESTS:1 









so 
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BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS — PASS _ FLAGS — EOP UNITS 


T xX xX x xX 

RESTART X x x Xx x 
ONT INUE x x x 
PROCEED X 
DROP x 
ADD x 
PRINT 
DISPLAY x 

AGS 
ZFLAGS 

IT 
2.3 FLAGS 


FLAGS ARE USED 7 SET UP CERTAIN tye hers apna May SUCH AS 
LOOPING ON ERR LL FLAGS ARE CLEARED he cart i REMAIN 


sc 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR - 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR = CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP RROR 

IER* INHIBIT ALL ERROR REPORTS 

IBE* INHIBIT ALL ERROR REPORTS 
FIRST LeveL (FIR RST LEVEL SOE EAINS 
ERR PC, TEST AND UNIT) 

IXE* RNIRIT VER TENDED” ERROR’ REPORTS (THOSE 
CALLED BY PRINTX MACRO’ S} 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT, TEST NUMBER AS TEST EXECUTES 

BOE BELL'’ ON ERROR 

UAM TTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDU INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 
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SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU es 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR E 

TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS — 
AND TYPE A "BELL'’ ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : JER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE ag hy: Riis. = PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING ''CHANGE HW (L) ? 
YOU MUST ANSWER ''Y a teke A START COMMAND UNLESS THE HARDWAR E 
INFORMATION HAS BEEN “RELOADED re THE SETUP UTILITY (SEE 
CHAPTER ve THE yMpPs USER'S MANUA WHEN YOU ANSWER THIS 


F 

QUESTION FOR EACH UN 

VTV31-K ADDRESS (0) 174000 ? 

IN REPLY, YOU_SHOULD ENTER AN ADDRESS IN OCTAL IN THE RANGE 
160000 TO 177776. TO PREVENT THE QUESTIONS BEING OUTPUT FOR 
EACH UNIT, ALL ADDRESSES COULD BE ENTERED IN RESPONSE TO THE 
FIRST ADDRESS REQUEST AS IN THE FOLLOWING SAMPLE DIALOGUE: 


# UNITS (D) ? 4<CR> 


UNIT 0 
VTV31-K ADDRESS (0) 174000 ? 174000,174010,174020,174030<CR> 
2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
Peete tioee COMMAND, THE td Bey SERVICES walt ASK FOR SOFTWARE 


Ee $ 
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 
“y'", THE FOLLOWING QUESTIONS WILL THEN BE ASKED: 


RUN TEST 13 MANUALLY? (L) N ? 
AUTODROF ERROR COUNT (D) 5 ? 


TEST 13 OUTPUTS A NUMBER OF DISPLAY PATTERNS TO THE MONITOR. 
IF YOU ANSWER tye TO THE FIRST QUESTION, EACH PATTERN WILL 
BE SHOWN * IL YOU PRESS THE CARRIAGE RETURN KEY. IF YOU 
RESPOND TO THE QUESTION BY TYPING 'N’ OR CARRIAGE RETURN, 
EACH PATTERN WILL LAST APPROXIMATELY 5 SECONDS. 


THE SECOND wight i; REFERS TO THE NUMBER OF ERRORS WHICH 
MAY OCCUR ON A UNIT WIT THE NUMBER 

D THE RESPONSE IS A 
oy RETURN), THE UNIT IS DROPPED FROM TESTING UNTIL A 


W COMMAND IS ENTERED. DROPPING IS PREVENTED IF EITHER THE 
IDU OR LOE FLAGS HAVE BEEN SELECTED. 
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2.6 CLOCK QUESTIONS 


IF THERE IS NO LINE TIME CLOCK ON THE SYSTEM, We,’ USER IS ASKED 
TO TYPE 2 CHARACTERS 6 SECONDS APART ON THE CONSOLE. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


GIVE THE DATE AND ANSWER THE LSI AND S5OHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE ‘'R NAME’, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE ‘'START'’ 

5. ANSWER THE ‘‘CHANGE HW’’ QUESTION WITH ‘‘Y"’ 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE ‘CHANGE SW’* QUESTION WITH ‘N’' 
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 
3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 
THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAC*IOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE ‘‘IER’' FLAG IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC :XXXXXX 
ERROR MESSAGE 


™ 
a 


-WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER A ra 


UNIT NUMBER = 0 - N_IS_LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “'IER’’ OR “'IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR ee 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. E 


HESE AR 
PRINTED UNLESS THE “‘IER"’, “‘IBR'’ OR "‘IXR'* FLAGS ARE SET CSECTION 2.3). 
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THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

EXTENDED ERROR MESSAGES ARE NOT USED IN THIS DIAGNOSTIC, ALL 
SUPPLEMENTARY INFORMATION BEING OUTPUT IN THE BASIC ERROR 
MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

ALL dg DETECTED BY THE DIAGNOSTIC CAUSE A ONE LINE 
GENERAL ERROR MESSAGE TO BE PRINTED. THE TEST NUMBER IN 
WHICH THE FAULT OCCURS IS on ED IN THE HIGHER THREE 
DIGITS OF THE ERROR NUMBER. THE LOWER TWO DIGITS ARE 
NUMBERED FROM ZERC FOR EACH TEST. 


EACH GENERAL MESSAGE MAY BE FOLLOWED BY A BASIC ERROR MESSAGE 
CONSISTING OF SEVERAL LINES. 


THE FOLLOWING LIST PROVIDES A BRIEF DESCRIPTION OF EACH OF 
THE ERRORS. 


ERROR DESCRIPTION 
00106 ‘ADDRESSING THE CSR CAUSES AN NXM TRAP" 


THIS IS PROBABLY CAUSED BY THE DEVICE CSR ADDRESS 
BEING ENTERED INCORRECTLY. 


00101 ‘ADDRESSING THE DBUFF REGISTER CAUSES AN NXM TRAP* 


THIS IS PROBABLY CAUSED BY THE DEVICE CSR ADDRESS 
BEING ENTERED INCORRECTLY. 


00200 ‘CSR READY BIT NOT SET" 
"CSR CONTENTS NNNNNN' 


00201 + ‘CSR BITS 3 As 6 NOT CLEAR’ 
"CSR CONTENTS NNNNNN’ 


BITS OTHER THAN 3 AND 6 MAY BE SET TO O OR 1. 


00202 ‘CSR FIELD BIT DOES NOT GET SET’ 
"CSR CONTENTS NNNNNN' 


00203 ‘CSR FIELD BIT DOES NOT GET CLEARED’ 
"CSR CONTENTS NNNNNN' 


00300 ‘CSR CHANGED BY WRITING TO DBUFF' 
*OLD CSR CONTENTS 
"NEW CSR CONTENTS NNNNNN (IGNORE BITS 0.1.2 AND 4)' 
* DATA WRITTEN TO DBUFF NNNNNN‘ 


THIS INDICATES ADDRESS INTERACTION PETWEEN THE CSR 
AND DBUFF REGISTERS. 


00400 ‘COMBINATION OF CSR BITS 5 AND 8 = 15 COULD NOT BE SET." 


"ATTEMPTED SETTING NNNNNN 


an 
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00401 


00500 


00501 


00600 


00700 


00800 


60900 


"ACTUAL SETTING NNNNNN (IGNORE BITS 0-4 AND 6-7) 
INDICATES BIT ‘STICKING’ OR BIT INTERACTION. 


"COMBINATION OF CSR BITS 0 ~ 2 COULD NOT BE SET VIA 
THE DBUFF REGISTER. * 

‘ATTEMPTED SETTING NNNNNN' 

"ACTUAL SETTING NNNNNN (IGNORE BITS 3-15)" 


COULD INDICATE BIT SET ERRORS IN THE CSR OR DBUFF 
REGISTERS OR AN ERROR IN THE FIRST LOCATION OF THE 
PICTURE STORE RAM. 


"BACKGROUND COLOUR READ BACK gag 
"LINE NNN (NNN OCTAL), DOT NNN (NNN OCTAL)' 
“EXPECTED CONTENTS N, ACTUAL CONTENTS N' 


THE ADDRESS LINES HAVE NOT BEEN TESTED AT THIS STAGE. 
THEREFORE, THE LINE AND DOT NUMBERS MAY NOT BE THOSE 
ACTUALLY WRITTEN TO. 


Ry READ BACK INCORRECTLY FROM ae ree STORE' 
"LINE NNN ( OCTAL), DOT NNN (NNN OCTAL)’ 
"EXPECTED CONTENTS N, ACTUAL CONTENTS N° 


AS FOR ERROR 500, THE LINE AND DOT NUMBERS MAY NOT 
BE THOSE ACTUALLY WRITTEN TO. 


"PICTURE STORE COLUMN ADDRESSING ERROR’ 
"LINE NNN (NNN OCTAL), DOT NNN (NNN om 

* EXPECTED CONTENTS N, ACTUAL CONTEN TS N 

"ADDRESS BITS BEING TESTED NNNNNNNNN’ 


THIS INDICATES INTERACTION BETWEEN THE PICTURE STORE 
COLUMN ADDRESS LINES. 


"PICTURE STORE LINE ADDRESSING ERROR’ 

"LINE NNN (NNN OCTAL), DOT NNN (NNN OCTAL)' 
* EXPECTED CONTENTS N, ACTUAL CONTENTS N° 
"ADDRESS BITS BEING TESTED NNNNNNNNN' 


THIS INDICATES INTERACTION BETWEEN THE PICTURE STORE 
LINE ADDRESS LINES. 


'g - bor WRITE FAILURE® 
"DOT ADDRESS WRITTEN NNN, FAILING DOT ADDRESS NNN' 
EXPECTED CONTENTS N, ACTUAL CONTENTS N 


HAVING MADE AN 8-DOT WRITE TO THE ADDRESS SHOWN, THE 
EXPECTED COLOUR WAS NOT READ BACK FROM THE ADDRESS 
GIVEN AS THE FAILING ADDRESS. 


"CSR READY NOT CLEAR DURING A PRESET’ 
"CSR CONTENTS NNNNNN, EXPECTED COLOUR N’ 


IMMEDIATELY AFTER ISSUING A PRESET COMMAND, THE CSR 
READY BIT DID NOT READ BACK AS ZERO. 


aD 
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00901 ‘CSR READY NOT SET 50 MILLISECONDS AFTER A PRESET’ 
"CSR CONTENTS NNNNNN, EXPECTED COLOUR’ 


AFTER A tg OF 50 pe reer FOLLOWING 

A PRESET, THE_CSR READY BIT WAS NOT SET. IF THE 
PRESET DID ACTUALLY OCCUR, THE EXPECTED COLOUR SHOULD 
BE SEEN ON THE MONITOR AND BE REFLECTED IN THE CSR. 


00902 ‘DOT NOT SET CORRECTLY ae A PRESET’ 
"LINE NNN (NNN OCTAL), NNN (NNN OCTAL)' 
“EXPECTED CONTENTS N, * ACTUAL LYCONTENTS N' 


FOLLOWING THE PRESET, THE PICTURE STORE ADDRESS SHOWN 
DID NOT CONTAIN THE PRESET COLOUR. 


4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 

dig M NUMBER ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
E ‘EOP’* SWITCH CAN BE_USED TO CONTROL HOW OFTEN THE END 

OF “PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 

5.0 DEVICE INFORMATION TABLES 


THE HARDWARE PTABLE CREATED AT START UP_CONTAINS A SINGLE 
D Ss IS LOADE 


WORD ENTRY FOR EACH ICE UNDER TE THIS WORD DED 
WITH THE DEVICE CSR ADDRESS AS THE HARDWARE QUESTIONS 
° ND EACH SUBPASS, THE CSR ADDRESS OF THE 


ADDRESS+2 IS LOADED INTO LOCATION DBUFF. 
REFERENCES THE DEVICE THROUGH THESE TWO LOCATIONS. 


6.0 TEST SUMMARIES 


ALL OF THE FOLLOWING TESTS ARE RUN WHENEVER THE PROGRAM IS 
RUN (BY DEFAULT) UNLESS SPECIFICALLY EXCLUDED BY THE TEST 
ECTION 2 TEST TO 9 REQUI TOR 


Cc IS_ PERF D 
VERIFIED BY OPERATOR OBSERVATION, ALTHOUGH THEY WILL RUN 
WITHOUT A DISPLAY MONITOR ON THE SYSTEM. 


6.1 LOGIC TESTS 
TEST 1 = REGISTER NXM 


CHECKS ARE MADE THAT ge THE DEVICE CSR AND DBUFF 
REGISTERS DOES NOT CAUSE AN NXM TRAP. 


TEST 2 = REGISTER ACCESS 

THE ag 4h am a Ss pw AND A CHECK MADE THAT THE READY BIT IS 
SET, THA 6 ARE CLEAR, AND THAT THE FIELD BIT IS 
SET AND CLEARED By THE DEVICE. 


TEST 3 = REGISTER ADDRESS UNIQUENESS 


an 
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I 

STORE), WHICH IS LEFT CLEAR. FOR EACH BIT COMBINATION, THE 

CSR IS READ AND CHECKED TO BE UNCHANGED. CSR BITS 0,1,2 AND 4 
ARE IGNORED IN THIS CHECK. 


TEST 4 = REGISTER BIT SET 


BITS 5 AND BITS 8 TO 15 IN THE CSR_ARE SET AND CLEARED IN 
ALL COMBINATIONS. FOR EACH COMBINATION Ls & CSR IS READ AND 
A CHECK MADE THAT THE RELEVANT BITS ARE S 


THE DBUFF REGISTER IS THEN USED IN CONJUNCTION WITH THE 
FIRST PICTURE STORE ELEMENT TO ss THAT CSR BITS 0 - 2 
CAN BE SET. CSR BITS AND _DBUFF BIT ARE CLEAR 
THROUGHOUT, ENSURING THAT ONLY THE FIRST PICTURE ELEMENT IS 


USED. 

A ‘WRITE PICTURE STORE’ OPERATION IS yews USING THE 
COLOUR BLACK. THE ELEMENT IS THEN READ AND A CHECK MADE THAT 
CSR BITS 0 = 2 READ ZERO. THIS PROCESS is REPEATED FOR EACH 
og ar core VERIFYING THAT THE CORRECT COLOUR IS REFLECTED 


TEST 5 = PICTURE STORE DATA 


A ZERO DATA PATTERN (COLOUR BLACK) IS WRITTEN TO THE FIRST 
PICTURE STORE LOCATION AND CHECKED TO READ BACK CORRECTLY IN 
THE CSR. THIS IS REPEATED FOR ALL PICTURE LOCATIONS TO FORM 
AN ALL BLACK BACKGROUND. 


DATA_IN ALL 8 COMBINATIONS IS THEN WRITTEN TO EACH PICTURE 
STORE LOCATION IN TURN AND AFTER EACH WRITE OPERATION, THE 

CSR IS EXAMINED TO ENSURE THAT THE DATA READS BACK CORRECTLY. 
EACH LOCATION IS RESET TO THE BACKGROUND COLOUR AFTER THE 
ABOVE OPERATION. 


THE ENTIRE TEST IS THEN REPEATED USING WHITE (DATA 7) AS THE 
BACKGROUND COLOUR. 


TEST 6 = PICTURE STORE COLUMN ADDRESSING 


THIS VERIFIES TH’ WRITING TO ANY COLUMN OF THE PICTURE 
STORE DGES NOT AF+=LT THE CONTENTS OF ANY OTHER COLUMN. 
SINCE EACH LOCATI1. “AN HOLD A 3 BIT DATA VALUE, THE COLUMN 
ADDRESS LINES ARE Cre’ CKED IN GROUPS OF THREE. 


COLUMN ADDRESS BITS 0 = 2 ARE CHECKED BY WRITING THE VALUES 
0 - 7 IN CONSECUTIVE LOCATIONS THROUGHOUT THE PICTURE STORE 
on THEN CHECKING THAT THE DATA READS BACK CORRECTLY VIA THE 


COLUMN ADDRESS arts 3_- 5 ARE CHECKED oY WRITING cen TO ne 
FIRST 8 LOCATIONS TO_THE NEXT 8 LOCATIONS ETC. UNTIL 
PICTURE STORE IS fut! THE DATA IS THEN VERIFIED VIA THE CSR. 


COLUMN ADDRESS BITS 6 - 8 ARE CHECKED BY WRITING ZERO TO THE 


aD 
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FIRST 64 LOCATIONS, ONE TO THE NEXT 64 LOCATIONS AND SO ON, 
rat ae PICTURE STORE IS FULL. THE DATA IS THEN VERIFIED VIA 


TEST 7 = PICTURE STORE LINE ADDRESSING 

THIS VERIFIES THAT WRITING TO ANY LINE OF THE PICTURE STORE 
33) NOT AFFECT THE CONTENTS OF ANY OTHER LINE. SINCE EACH 
LOCATION CAN HOLD A 3 BIT DATA VALUE, THE LINE ADDRESS LINES 
ARE CHECKED IN GROUPS OF THREE. 

oy ADDRESS BITS 0 = 2 (CSR BITS 8 =~ 10) ARE CHECKED BY 
WRITING ZERO TO ALL LOCATIONS IN THE FIRST LINE, ONE TO ALL 


LOCATIONS IN THE NEXT LINE AND SO ON, UNTIL ALL LINES ARE 
ata TO. THE DATA IS THEN READ BACK AND VERIFIED VIA THE 


LINE ADDRESS BITS 3 - 5 (CSR BITS 11 = 13) ARE CHECKED BY 
WRITING ZERO TO THE FIRST EIGHT LINES, ONE TO THE NEXT EIGHT 
LINES ETC. TO THE - “ OF THE PICTURE STORE. THE DATA IS THEN 
VERIFIED VIA THE CSR 
LINE ADDRESS BIT 6 AND 7 (CSR BITS 14 AND y 4 ca CHECKED BY 
WRITING et MY THE FIRST 64 LINES, ONE TO THE NEXT 64 LINES, 
TWO TO THE NEXT 64 LINES, AND THREE TO THE LAST 64 LINES. THE 
PICTURE STORE DATA is THEN READ BACK AND VERIFIED. 
TEST 8 = 8 DOT 
THIS TEST CHECKS THAT IF DBUFF BIT 15 (8-DOT) IS SET, 
AR DE TO 
BU I EACH 

COMBINA F THE LOWER DOT ADDRESS BITS, A NEW COLOUR IS 
USED AND THE °8-DOT WRITE VERIFIED. 
TEST 9 = PRESET 
DBUFF BITS 10 = 12 ARE SET TO THE COLOUR BLACK (ZERO) AND A 
ays i IS PERFORMED. THE READY BIT IN THE ie IS CHECKED TO 

R LOCATION 
HAVE BEEN CORRECTLY SET. THE PROCESS IS THEN REPEATED FOR EACH 
OF THE EIGHT SELECTABLE COLOURS. 
6.2 VISUAL TESTS 
TEST 10 = VIDEO ENABLE 


THE PICTURE STORE IS PRESET TO ae FOR FIVE site? BIT 5 


DURI K. 

DISPLAY “Is THEN REENABLED FOR A FURTHER FIVE SECONDS. 

TEST 11 = DISPLAY ADDRESSING 

THE PICTURE STORE IS PRESET TO BLUE. LINES OF MAGENTA ARE THEN 


aD 


USER DOCUMENTATION 


MACRO V03.01 18-NOV-81 11:10:45 PAGE 2-12 


WRITTEN FROM THE TOP_OF THE DISPLAY UNTIL THE wy * SCREEN HAS 
CHANGED COLOUR, THE TRANSITION SHOULD BE SMOOTH, TAKING 
APPROXIMATELY 7S SECON 


git 
COLUMNS OF WHITE ARE THEN WRITTEN FROM THE LEFT SIDE OF THE 
DISPLAY UNTIL THE SCREEN IS ALL WHITE. AGAIN, THE TRANSITION 
SHOULD BE SMOOTH. 


IF THE DISPLAY DOES NOT APPEAR AS DESCRIBED HERE, AN ADDRESSING 
FAULT ON THE OUTPUT SIDE OF THE DEVICE IS INDICATED. 


TEST 12 = OFFSET 


THE PICTURE STORE IS PRESET TO BLUE. A_LINE OF MAGENTA IS THEN 
WRITTEN TO THE TOP OF THE DISPLAY AND THE OFFSET REGISTER 
CHANGED TO ae THE LINE DOWN ONE POSITION. THIS IS  aaOUT ? 


PROCE ° 
IN BOTH CASES, THE LINE BETWEEN COLOURS SHOULD MOVE SMOOTHLY 
ACROSS THE SCREEN. ANY UNEVEN MOVEMENT INDICATES A PROBLEM 
IN THE OFFSET REGISTER. 


TEST 13 = PATTERN GENERATOR 


THIS TEST IS FOR SETTING UP AND CHECKING THE OUTPUT TO THE 
DISPLAY MONITOR. NINE sell ge! ARE rn oe to torpuy A PRESET 


UMN, 1 
RECTANGLES WHICH ARE DISPLAYED DEPENDS ON T ONF IGURAT ION 
BEING USED - 12/16 ACROSS THE SCREEN FOR sBa7sie DOT VERSIONS, 
AND 15/16 DOWN THE SCREEN FOR 60/50 HZ VERSIONS. 


NORMALLY, THE NINE PATTERNS ARE DISPLAYED IN TURN, EACH 
REMAINING ON THE SCREEN FOR eVect eS SECONDS. 
HOWEVER, IF MANUAL SELECTION IS SELECTED AT START UP, EACH 
PATTERN IS KEPT DISPLAYED UNTIL THE RETURN KEY IS HIT ON THE 
OPERATOR CONSOLE. 


ee ee 


Qa 


PROGRAM HEADER AND TABLES { 


002000 


060 
000001 
001224 
012350 
012402 
002160 
002164 
013004 
000000 
000000 
000000 
000000 
002124 
000000 


B 2 
MACRO V03.01 18-NOV-81 11:10:45 RAGE 3 


«TITLE PROGRAM HEADER AND TABLES 
-SBTTL PROGRAM HEADER 


-ENABL ABS,AMA 
. = 2000 


BGNMOD 


j++ 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
3 THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNSW,BGNSF T ,BGNDU,BGNSETUP 


HEADER CZVTV,A,0,660.,0 


LSNAME: : 


LSREV:: 

LSDEPO: : 
LSUNIT:: 
LSTIML:: 
LSHPCP: : 
LSSPCP:: 
LSHPTP: : 
LSSPTP:: 
- LSLADP:: 
LSSTA:: 


L$CO:: 


LSDTYP:: 
LSAPT:: 
LSDTP:: 
LSPRIO:: 
LSENVI:: 


eASCII /C/ 
eASCII /2/ 
ASCII /V/ 
eASCII /T/ 
eASCII /V/ 
BYTE 0 
BYTE QO 
BYTE 0 
eASCII /A/ 
ASCII /0/ 
-WORD TSPTHV 
-WORD 660. 
-WORD LSHARD 
WORD LSSOFT 
-WORD LSHW 
WORD LS$SW 
«WORD LSLAST 
-WORD 0 
-WORD 0 
WORD 0 
-WORD 0 
-WORD LSDISPATCH 
-WORD 0 


a-_ 


VSO nRAWNOOs 
SOAQLLNUNSCO 


4 AND TABLES 


000000 
000000 


003 
003 


000000 
000000 


000000 
002210 
000000 
000000 
000000 
000000 
005562 
000000 
002220 
104035 
000000 
004722 
005510 
005424 
004714 
000000 
000000 
000000 
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LSEXP1:: 
LSMREV:: 


LSEF:: 


LSSPC:: 
LSDEVP:: 
LSREPP: : 
LSEXP4:: 
LSEXPS5:: 
LSAUT:: 
LSDUT:: 
LSLUN: : 
LSDESP:: 
LSLOAD: : 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP: : 
LSPRT:: 
LSTEST:: 
LSDLY:: 
LSHIME: : 


$REVISION 
SEDIT 


LSDVTYP 
0 

0 

0 

0 

L$DU 

0 
LSDESC 
ESLOAD 
0 
LSINIT 
LSCLEAN 
LSAUTO 
LSPROT 
0 

0 

0 
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} -SBTTL DISPATCH TABLE 

3 3+ 

4 : THe DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF ~— TEST. 

? : IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 

7 e 

8 002122 DISPATCH 13 

002122 000015 WORD 
002124 LSDISPATCH:: 
002124 005640 . WORD 
poet es 006140 . WORD 
0021 006452 o WOR 
002132 06606 - WORD 
002134 007200 . WORD 
002136 007632 .WOR 
002140 010164 «WORD 
21 010520 . WORD 
002144 010714 -WOR 
002145 011316 . WORD 
002150 011424 ~ WORD 
002152 011610 ~ WORD 
002154 012030 - WORD 


PROGRAM HEADER AND TABLES 
DEFAULT HARDWARE P-TABLE 


COOONOUE WN 


sess 
nm 


= 
oo 
Ponononge 
—d aed od od 
wv 
ao 


3S 


11 

21 002160 

23 002162 
002162 


060001 


174000 


-. 
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-SBTTL DEFAULT HARDWARE P-TABLE 


; “THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
THE TEST=DEVICE PARAMETERS. be ge UCTURE OF Me 1: sg 


; IS IDENTICAL TO THE STRUCTURE E HARDWARE P-TABLES 
AND TS USED AS A “TERPLATE’ FOR BUILDING THE P-TABLES. 


BGNHW DFPTBL 
e WORD 
LSHW:: 
DFPTBL:: 
WORD 174000 3; VTV31-K CSR ADDRESS 
ENDHW 


L10000: 


L10000-L$HW/2 









SOOONOUE WN 


10 002162 


002162 
002164 
, 002164 
19 002164 
20 
21 
22 
$ 002166 
25 002170 
002170 
















26 
27 002170 


PROGRAM HEADER AND TABLES 
SOFTWARE P-TABLE 


000002 


000000 


000005 


F 2 
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-SBTTL SOFTWARE P-TABLE 


:" THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
3 PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
: ie a TIME AND MAY BE VARIED BY THE OPERATOR 


BGNSW = SFPTBL 


WORD 
L$SW:: 
SFPTBL:: 
MANVEN: : -WORD 0 ; TEST 13 MANUAL INTERVENTION FLAG 
: 0 FOR NO INTERVENTION (DEFAULT) 
: 1 FOR RUN MANUALLY 
MAXERR:: «WORD 5 ; AUTODROP ERROR COUNT 


ENDSW 
L10001: 


ENDMOD 


L10001-L$SwW/2 





am 


AREAS 


GLOBAL 
SOFTWARE P-TABLE 


PUTS ES a at 
FwWN Sw 

So 

oO 

~ 

a 

“N 

oOo 


viw 
NOu 


3 
74 002170 
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100000 


001000 
000400 
000200 
000100 


000040 
000020 
000010 


000340 


- TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


" THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
+ _ARE USED IN MORE THAN ONE TEST. 


EQUALS 

; BIT DIFINITIONS 
BIT15== 100000 
B1T14== 40000 
B1T13== 20000 
BIT12== 10000 
BIT11== 4000 
B1T10== 2000 
BITO9== 1000 
BITO8== 400 
BITO7== 200 

1T06== 100 
BITOS5== 40 
BIT04== 20 
BITO3== 10 
BITO2== 4 
BITOI== 2 
BITOO== 1 
BIT9== BITO9 
BIT8== B1T08 
BIT7== B1T07 
BIT6== BIT06 
BITS5== B1ITO5 
BIT4== B1T04 
BIT3== BITO3 
BIT2== BITO2 
BIT1== 61701 
on B1T00 


> EVENT FLAG_DEFINITIONS 
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF .START== 32. : START COMMAND WAS ISSUED 
EF.RESTART== 31. : RESTART COMMAND WAS ISSUED 
EF.CONTINUE== 30. t CONTINUE COMMAND WAS ISSUED 

EF .NEW== 29. : A NEW PASS HAS BEEN STARTED 
EF . PWR== 28. : A POWER-FAIL/POWER-UP OCCURRED 


; PRIORITY LEVEL DEFINITIONS 
PRIO7== 340 





am 


AREAS 
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GLOBAL 
GLOBAL EQUATES SECTION 


900300 PR106== 300 
90024 PRIOS5== 240 
000200 PR104== 200 
000140 PRI03== 140 
000100 PRI02== 100 
000040 PRIO1== 40 
00 PRI00== 0 
SOPERATOR FLAG BITS 
000004 EvVL== 4 
000010 LOT== 10 
000020 ADR== 20 
000040 1DU== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== 1000 
002000 PRI== 2000 
4000 IXE== 4000 
010000 IBE== 10000 
20000 IER== 20000 
040000 LOE== 40000 
100000 HOE== 100000 


oz 
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GLOBAL DATA SECTION 


: ~SBTTL GLOBAL DATA SECTION 
s++ 
4 ; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
2 ; IN MORE THAN ONE TEST. 
20 ) 
$3 3 UUT REGISTER ADDRESS STORAGE 
23 002170 000000 UUT:: -WORD 0 3 CURRENT UNIT UNDER TEST 
24 002172 000000 VTVCSR: : -WORD 0 : CSR_ ADDRESS 
$2 002174 000000 DBUFF : : -WORD 0 ; DBUFF ADDRESS 
27 002176 000000 ERRCNT: : -WORD 0 ; ERROR COUNT FOR CURRENT UNIT 
28 002200 000000 DOT:: .WORD 0 ; DOT POSITION FOR ERROR REPORTS 
002202 000000 NXMFLG::.WORD 0 : SET IF NXM ERROR OCCURS 
3 002204 000000 ABITS:: .WORD 0 ; BIT MASK STORE FOR ADDRESS TESTS 
34 002206 000000 COUNT:: .WORD 0 3 COUNTER FOR WAIT25 SUBROUTINE 


- = 
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GLOBAL TEXT SECTION 





“SBTTL GLOBAL TEXT SECTION 
so? 
i 2 THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
g : MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
é : MORE THAN ONE TEST. 
8 
10 : NAMES OF DEVICES SUPPORTED BY PROGRAM 
12 002210 DEVTYP <VIV31-k> 
002210 LSDVTYP:: 
002310 +«126«~=S(«124”=i<‘«‘«éN DS; *ASCIZ  /VTV31-k/ 
002913 ««063——(ité«iSTSC(‘<«‘éi SS 
002216 113 ~~ ©«000 
LEVEN 
13 
19 
20 : TEST DESCRIPTION 
52 002220 DESCRIPT <VTV31-K INTERFACE DIAGNOSTIC> 
03550 («126 si«i12HC<“i«‘«‘i*S LSDESC:: cc17 /VIV31-K INTERFACE D 
ASC - N 
002293 063——(‘éiSTSC(<‘«‘é‘ SS 
55582 113,—='(—i«s«idTT 
002931 #4116 «=«124~Ss«*105 
002934 122 «+106 101 
002237 ««108.—~=i(<“ié‘z25St«(K 
002942 «104.~=CtCi‘2”St*«é«‘2027 
002945 107 «+116 ~°#117 
002950 123 «4124 «111 
002253 + 42«103'—St=i«i00 


- EVEN 
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GLOBAL SUBROUTINES I 
1 .SBTTL GLOBAL SUBROUTINES 
¢ RRR AAARERRERRRR EERE RE ERE REE REEEREEEEREEEEEEERRRRERREREE 
4 s * 
3 ; THE GLOBAL SUBROUTINES ARE CALLED BY MORE THAN ONE TEST. * 
7 Iti i ititi titi 
R 
9 i+ 
10 ; FUNCTIONAL DESCRIPTION: 
1 ; SUBROUTINE TO UPDATE UNIT ERROR COUNT. IF DURING ONE PASS, THE 
1 ; ERROR COUNT EXCEEDS MAXERR. (THE AUTODROP COUNT REQU ESTED AT 
14 : STARTUP), THE UNIT IS DROPPED FROM THE TEST CYCLE. 
15 : IF THE PROGRAM IS LOOPING ON AN ERROR OR IF THE FLAG IDU HAS 
16 ; BEEN SELECTED, THE SUBROUTINE DOES NOTHING. 
18 : CALLING SEQUENCE: 
20 : JSR PC, CHKMAX 
22 + INPUTS: 
23 $ 
3 ; NONE . 
26 < IMPLICIT INPUTS: 
28 : THE VARIABLE MAXERR CONTAINS THE NUMBER OF ERRORS AFTER WHICH 
29 : TO DROP THE UNIT. 
30 : UUT CONTAINS THE NUMBER OF THE UNIT CURRENTLY BEING TESTED. 
32 + OUTPUTS: 
33 é 
$e 3 NONE . 
36 + IMPLICIT OUTPUTS: 
38 ; THE SUBPASS ERROR COUNT (ERRCNT) IS INCREMENTED. 
40 : SUBORDINATE ROUTINES USED: 
42 ; NONE . 
44 > FUNCTIONAL SIDE EFFECTS: 
46 ; NONE . 
is 
49 002256 CHKMAX: : INLOOP ; LOOPING ON ERROR? 
002256 104420 TRAP — CSINLP 
50 002260 BCOMPLETE 1$ : IF YES, EXIT 
“ 002260 103432 BCS 1$ 
52 002262 RFLAGS RO ; GET OPERATOR FLAGS 
002262 104421 TRAP — CSRFLA 
53 002264 032700 000040 BIT #IDU,RO ; . 


S$ DROPPING INHIBITED? 
54 002270 001026 BNE 1$ ; iF YES, Exit — 
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GLOBAL SUBROUTINES 


55 

36 002272 005267 177700 INC ERRCNT : UPDATE THE ERROR COUNT 

57 002276 026767 177674 177662 CMP ERRCNT,MAXERR : TOO MANY ERRORS? 

58 00 3420 BLE IF NOT, JUMP 

59 002 PRINTF Fatt maaes ool ; "TOO MANY ERRORS’ 
002306 016746 177656 MOV UUT,-(SP) 
002312 016746 177650 MOV MAXERR,=(SP) 
002316 012746 002350 MOV #NERRS .-(SP) 
002322 012746 000003 MOV 7 
002326 010600 V g 
002330 104417 TRAP _—CSPNTF 
002332 062706 000010 ADD #10,SP 

60 002336 popu ~—suUT : DROP THE UNIT 
002336 016700 177626 MOV UUT,RO 

ra 002342 104451 TRAP  C$DODU 

62 002344 DOCLN ; END THE SUBPASS 

- 002344 104444 TRAP  C$DCLN 

6 002346 000207 1$: RTS PC 

66 .NLIST BEX 

67 002350 045 116 045 NERRS: .ASCIZ /%NZAMORE THAN%D3%A ERRORS ON UNIT%D2/ 

68 “LIST BEX 

69 SEVEN 

70 

71 


=z 
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GLOBAL SUBROUTINES 


COONAUSWN—OVOONOUSWN OO wi 


WA 
1$ 


002416 016700 177564 
002422 005300 
002424 001376 
1 002426 000207 


:10:45 PAGE 12 


; : FUNCTIONAL DESCRIPTION: 


SUBROUTINE TO WAIT FOR 25 MILLISECONDS 


; ; CALLING SEQUENCE : 


JSR PC ,WAIT25 


NONE © 


; ; IMPLICIT INPUTS: 
THE VARIABLE COUNT MUST HAVE BEEN SET UP BY ROUTINE SETCLK. 
; ; OUTPUTS: 


NONE . 


; IMPLICIT OUTPUTS: 


NONE . 


leet +: COUNT ,RO 
DEC RO 


BNE 1$ 
RTS PC 


4 WAIT COUNT 
DON 


ALL E? 
IF NOT, WAIT SOME MORE 
ELSE RETURN 
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GLOBAL INTERRUPT SERVICE ROUTINES 


1 .SBTTL GLOBAL INTERRUPT SERVICE ROUTINES 
¢ FRRAAAAARAAAA REAR EAAEREAEREAEARERERARERERERERRERERAREREERREREREREE 
4 é 
5 3; THESE ROUTINES ARE USED IN MORE THAN ONE PLACE IN THE PROGRAM. 
: PITTI IIT) 
9 002430 BGNSRV NXMTRP 

002430 NXMTRP: : 
10 002430 012737 000001 002202 MOV #1, Q4NXMFLG ; FLAG UNIT NXM ERROR 
11 002436 012702 000001 MOV #1,R2 : FLAG REGISTER NXM ERROR 
12 002442 ENDSRV 

42 L10002: 
002442 RTI 
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GLOBAL ERROR REPORT S 


.SBTTL GLOBAL ERROR REPORT SECTION 
4 2 THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 
5 + USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
$ ; (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED ‘oO. CALL PRINT SERVICES. 
8 
2 
26 002444 BGNMSG ER200 
002444 ER200: : 
27 002444 PRINTB #E200B,R1 : PRINT CSR CONTENTS 
002444 010146 MOV -(SP) 
002446 012746 003636 MOV #55008, (SP) 
002452 012746 000002 MOV #2,-( 
002456 010600 MOV SPRO. 
002460 104414 TRAP _— CS$PNT 
002462 062706 000006 ADD #6,SP 
28 002466 004767 177564 JSR PC, CHKMAX : CKECK FOR TOO MANY ERRORS 
29 002472 ENDMSG 
002472 L10003: 
" 002472 104423 TRAP —- C$MSG 
31 002474 BGNMSG ER300 
002474 ER300:: 
32 002474 PRINTB #E€300B8,R1,R3 ; PRINT REGISTER CONTENTS 
002474 010346 MOV R3,-(SP) 
002476 010146 MOV R1.=(SP) 
002500 012746 003663 MOV #€ 3008, -(SP) 
2504 012746 000003 MOV #3,-(SP) 
002510 010600 MOV SP,RO 
002512 104414 TRAP  CS$PNTB 
002514 062706 000010 ADD #10,SP 
33 002520 PRINTB #E300C,R2 é 
002520 010246 MOV R2,-(SP) 
002522 012746 003776 MOV #ES00C ,-(SP) 
002526 012746 000002 MOV #2,-(SP) 
002532 010600 MOV 
2534 104414 TRAP SPN 
002536 062706 000006 ADD #6,SP 
34 002542 004767 177510 JSR PC, CHKMAX : CHECK FOR TOO MANY ERRORS 
35 002546 ENDMSG 
002546 L10004: 
002546 104423 TRAP  CS$MSG 
37 002550 BGNMSG ER400 
002550 ER4OO:: 
38 002550 PRINTB #E400B,R1.R4 ; PRINT GOOD AND BAD 
002550 010446 MOV R4,-(SP) 
002552 010146 MOV R1.-(SP) 
002554 012746 004036 MOV #64008 -(SP) 
2560 012746 000003 MOV #3,-(SP) 
002564 010600 MOV 
002566 104414 TRAP 1B 
002570 062706 000010 ADD #0. SP 
39 002574 004767 177456 JSR PC, CHKMAX : CHECK FOR TOO MANY ERRORS 





GLOBAL AREAS 
GLOBAL ERROR REPORT SECTI 


40 002600 
600 
002600 


002 
51 002672 
00 


SSeVs wn 
SoH UR 


S 


4 
002756 


Serure 


$ 


RRS 
AAA 


00000 
at et = 
~N 
= 


RS 
Ssas 


3 


a 
S 
a 
™ 
Ww 


Ssss 2k 


004152 
000003 


000010 
177424 


177400 


004503 
000005 


000014 


004571 
000003 


000010 
177334 


177400 
S44 
177000 


177230 
177224 





ENDMSG 


BGNMSG R401 


PRINTB 


JSR 
ENDMSG 


BGNMSG R500 


SWAB 


BIC 
PRINTB 


PRINTX 


JSR 
ENDMSG 


BGNMSG €ER501 


SWAB 
BIC 
Vv 


BIC #17700 
PRINTB #LINDOT.R4,R4, soi. DOT ;: 
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#E401B,R3,R5 


PC, CHKMAX 


R3 
#177400,R3 


E 
LE 
#LINDOTR3,R3,R1 ‘Ri; 


#GOOBAD ,R2,R3 


PC, CHKMAX 


R4 
Sif R4 
0,a#D0T 


3 PRINT GOOD AND BAD 


; CHECK FOR TOO MANY ERRORS 


AR 0 fs 
; LINE AND DOT NUMBER 


; CHECK FOR TOO MANY ERRORS 


THE OTHER B 
BL. oly PATTERN 
T NUMBER 
SLINE AND DOT NUMBER 


C$MSG 


RS. $.-<$P) 
pare -(SP) 
P) 


CS$PNTB 
#10,SP 


CSMSG 


R1,-(SP) 


CSPNTB 
#14,SP 
R3,-(SP) 
R2,-(SP) 
#GOOBAD 
#3,-(SP5 
SP,RO 


CSPNTX 
#10.SP 


CSMSG 


DOT .-(SP) 
DOT.-(SP) 
R4,=(SP) 
R4.-(SP) 


— 
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002760 012746 004503 MOV t INDOT, =(SP) 
002764 012746 000005 MOV #5,-(SPS 
002770 010600 MOV SP.RO 
002772 104414 TRAP  C$PNTB 
002774 062706 000014 ADD #14,SP 
61 003000 PRINTX #GOOBAD,R2.R3  ; GOOD AND BAD 
003000 010346 MOV R3,-(SP) 
003002 010246 MOV R2,-(SP) 
012746 004571 MOV # -(SP) 
003010 012746 000003 MOV #3,-(SP) 
003014 010600 MOV , 
3016 104415 TRAP  C$PNTX 
003020 062706 000010 ADD #10,SP 
42 903024 004767 177226 JSR PC, CHKMAX : CHECK FOR TOO MANY ERRORS 
63 003030 ENDMSG 
003030 L10010: 
~ 003030 104423 TRAP  C$MSG 
65 003032 BGNMSG ER600 
003032 ER600:: 
66 003032 000305 SWAB RS : GET THE LINE NUMBER 
67 003034 042705 177400 BIC #177600,R5 + CLEAR OTHER BITS 
68 003040 010137 002200 MOV R1,a4D0T : GET THE DOT NUMBER 
69 003044 042737 177000 002200 BIC #177000,a#D0T ;: CLEAR THE OTHER BITS 
70 003052 PRINTB M#LINDOT.RS,R5S,DOT.DOT ; LINE AND DOT NUMBER 
003052 016746 177122 MOV DOT,-(SP) 
003056 016746 177116 MOV DOT,-(SP) 
003062 010546 MOV R5,-(SP) 
003064 010546 MOV R5,-(SP) 
012746 004503 MOV #LINDOT,-(SP) 
003072 012746 000005 MOV #5,-(SPS 
003076 010600 MOV SP,RO 
3100 104414 ‘TRAP ~—s C$PNTB 
003102 062706 000014 ADD #14,SP 
71 003106 PRINTX #GOOBAD,R4,R3  ; GOOD AND BAD 
003106 010346 MOV R3,-(SP) 
003110 010446 MOV R4,-(SP) 
003112 012746 004571 MOV #GOOBAD , = (SP) 
003116 012746 000003 MOV #3,-(SP) 
003122 010600 MOV SP,RO 
003124 104415 TRAP  CSPNTX 
003126 062706 000010 ADD #10,SP 
72 003132 016767 004754 177044 MOV NCOLS,ABITS : GET NO. OF COLUMNS PER COLOUR 
73 003140 006367 177040 ASL ABITS : SHIFT TO FORM 
74 003144 006367 177034 ASL ABITS : BIT MASK OF 
75 003150 367 17703 ASL ABITS + ADDRESS LINES 
76 003154 166767 004732 177022 SUB NCOLS,ABITS : BEING TESTED 
77 003162 PRINTX M#EADD,ABITS t AND ADDRESS LINES BEING TESTED 
003162 016746 177016 MOV ABITS,-(SP) 
003166 012746 004652 MOV #EADD -(SP) 
003172 012746 002 MOV #2,-(SP) 
003176 010600 MOV SP.RO 
3200 10441 TRAP CSPNTX 
005 02 062706 000006 D #6,SP 
78 00 004767 177044 JSR PC, CHKMAX : CHECK FOR TOO MANY ERRORS 
79 00321 ENDMSG 


00321 L10011: 


GLOBAL AREAS 
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104423 


FLIES 
mor 
oO NNUNW! 


MNMNOOAN 
VInnN 
re SP 
ARADO 


22 SS 
NN 


-—COoooo0oo 
& 


=S2Rz2 
FOO 


g 
$ 


CoOo—00000 
—_ ad ad od 
mt 04 Oo 
ANS WEY 
AOE 

NAUSGAAAX 


=-OoO0°0o es 
ae a wat aad SD SS 
SNNES NN 


R 
~Ne 
— 
rs 


g 
$ 


176570 
177000 
176556 
004257 
000003 


000010 


002200 


176662 


176640 
176632 


176562 


BGNMSG €ER700 


SWAB 
BIC 
MOV 
BIC 
PRINTB 


PRINTX 


C 
PRINTX 
JSR 
ENDMSG 
BGNMSG 


ER800 


BIC 
PRINTB 


PRINTB 


RS 
#177400,R5 
#177000, a#D0T 


: E 
; CLEAR THE OTHER BITS 


ER700:: 


GET THE LINE NUMBER 
CLEAR OTHER BITS 
T THE DOT NUMBER 


#LINDOT.R5,R5,DOT,DOT ; LINE AND DOT NUMBER 


#GOOBAD ,R4 ,R3 


NLINS ,ABITS 
ABITS 


ITS 
#177400, ABITS 
#EADD ,ABITS 


PC ,CHKMAX 
DOT 


R1,DOT 
#177000 
#€800B,R3,D0T 


#EB00C .R3,R4 


GOOD AND BAD 


GET NO. OF LINES PER COLOUR 


; SHIFT TO FORM 


MASK OF ADDRESS 
LINES BEING TESTED 


; CLEAR THE TOP BYTE 
; AND ADDRESS LINES BEING TESTED 


; CHECK FOR TOO MANY ERRORS 
L10012: 
T 


ER800: : 
GET THE DOT NUMBER 
CLEAR THE OTHER BITS 
DOT ADDRESS,GOOD ,BAD 





TRAP 


C$MSG 


DOT ,-(SP) 
DOT ,-(SP) 
Reon tee> 


CSPNTB 
#14,SP 


R3,-(SP) 
R4,-(SP) 


-( 
#3,-(SP) 
SP-RO 
CSPNTX 
#10,SP 


SP) 


ABITS,-(SP° 
er 


ca 


CSPNTX 
#6,SP 


CSMSG 


Sette 
R35 ,~(SP) 


#66008 . (SP) 
#3,-(SP) 
SP’RO 


CSPNTB 
#10.SP 
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GLOBAL ERROR REPORT SECTION 


R4,-(SP) 


S 
ye 
~ 
S 
: 
a 
$ 


003446 010346 MOV R3,-(SP) 
003450 012746 004344 MOV #£600¢ =(SP) 
003454 012746 000003 MOV #3,-(SP) 
003460 010600 MOV SP,RO 
003462 104414 TRAP  C$PNTB 
003464 062706 000010 ADD #10,SP 

103 003470 004767 176562 JSR PC, CHKMAX ; CHECK FOR TOO MANY ERRORS 

104 003474 ENDMSG 
003474 L10013: 

— 003474 104423 TRAP  C$MSG 

106 003476 BGNMSG ER900 
003476 ER900:: 

107 003476 PRINTB #E900B.R3,R2  ; CSR CONTENTS, PRESET COLOUR 
003476 010246 MOV R2,-(SP) 
003500 010346 MOV R3,-(SP) 
003502 012746 004427 MOV #5008, -(SP) 
003506 012746 000003 MOV #3,-(SP) 
003512 0106 MOV SP,RO 
003514 104414 TRAP  C$PNTB 
003516 062706 000010 ADD #10,SP 

108 003522 004767 176530 JSR PC, CHKMAX ; CHECK FOR TOO MANY ERRORS 

109 003526 ENDMSG 
003526 L10014: 

_ 003526 104423 TRAP —_ C$MSG 

111 003530 BGNMSG ER902 
003530 ER902:: 

112 003530 000305 SWAB RS : GET THE LINE NUMBER 

113 003532 042705 177400 BIC #177400,R5 : CLEAR THE OTHER BITS 

114 003536 010337 002200 MOV 3, a4D0T + GET THE DOT NUMBER 

115 003542 042737 177000 002200 BIC #177000,a#D0T =: CLEAR THE OTHER BITS 

116 003550 PRINTB #LINDOT,RS,RS5S,DOT,DOT ; LINE AND DOT NUMBER 
003550 016746 176424 MOV DOT,-(SP) 
003554 016746 176420 MOV DOT,-(SP) 
003560 010546 MOV R5S,-(SP) 
003562 010546 MOV RS.- 
003564 012746 004503 MOV #LINDOT,-(SP) 
003570 012746 000005 MOV 7 (SPS 
003574 010600 MOV a 
003576 104414 TRAP CS$PNTB 
003600 062706 000014 ADD #14,SP 

117 003604 PRINTX #GOOBAD,R2.R4 ; GOOD AND BAD 
opscKG  bloees wy ORS *xeapp 
003610 or eete 004571 MOV #GOOBAD ,- (SP) 
003614 012746 000003 MOV #3,-(SPS 
003620 010600 V PRO 
003622 104415 TRAP  CSPNTX 
003624 062706 000010 ADD #10,SP 

118 003630 004767 176422 PC, CHKMAX : CHECK FOR TOO MANY ERRORS 

119 003634 ENDMSG 
003634 L10015: 
003634 104423 TRAP  C$MSG 


a 
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z 
SE 


on 

wo 
aw 
RRR 


3s 


4 es 4 

Wmouwr 
NWN EN ul 
Soooooooo oooo 
RRRRRRRREF 
AAAI 
I 3 SS 
ooo°o—-0—0o— ooo 
— = td CIHR IH I HO — 
— tI IO OO O — O00 — 
COO fF Of OfLOL SO 
NEW E INI N 


VInor 


11:10:45 


E2008: 
E3008: 


E300C: 
E4008: 


PAGE 14-5 


>r]z 


/ 
/ 


NEN NUN NIN I I Pl 


R CONTENTS %062N/ 
D_CSR CONTENTS 206/ 
ZANEW CSR CONTENTS %062%A_(IGNOR 
T TO DBUFF %06%N/ 


UAL SE 
ZAATTEMPTED SETTING %06/ 


E BITS 0,1,2 AND 4)/ 


poe le oe %062A_ (IGNORE BITS 3-15) 2N/ 


ESS WRI 


E EXPECTE 
ZA ZD3%A (%03%A OCTAL), DO 
/ZAEXPECTED CONTENTS %01%A, ACTUAL 
E 


ZAADDRESS BITS BEING TESTED %B92N 


NG DOT ADDRESS %01/ 
ONTENTS %012N/ 
2012N/ 
(Z03%A_ OCTAL)2N/ 
Fates %012N/ 





—~= 


H 3 
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GLOBAL ERROR REPORT SECTION T 

11 TITLE gy 8S gy SECTIONS 

i§ -SBTTL REPORT CODING SECTION 

41 004714 BGNMOD 

¢g ~SBTTL PROTECTION TABLE 

44 z+ 

45 ; THIS TABLE IS USED BY THE RUNTIME SERVICES 

i$ ; TO PROTECT THE LOAD MEDIA. 

48 . 

49 004714 BGNPROT 

50 004714 LSPROT:: 

51 004714 000000 0 sOFFSET INTO P-TABLE FOR CSR ADDRESS 

52 004716 177777 -1 :OFFSET INTO P=-TABLE FOR MASSBUS ADDRESS 

37 004720 177777 -1 sOFFSET INTO P=TABLE FOR DRIVE NUMBER 


HH 004722 ENDPROT 


3 
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INITIALIZE SECTION 


J ~SBTTL INITIALIZE SECTION 
3 3+ 
4 : THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
2 : AT THE BEGINNING OF EACH PASS. 
7 ” aes 
8 004722 BGNINIT 
9 004722 LSINIT:: 
33 004722 READEF #EF.START 3; START COMMAND? 
004722 012700 000040 MOV #EF .START,RO 
004726 104447 TRAP CSREFG 
34 004730 BNCOMPLETE CONT 3; IF NOT, BRANCH 
004730 103002 BCC CONT 
35 004732 004767 000114 JSR PC,SETCLK ; SET UP CLOCK COUNTER 
36 004736 CONT: READEF #EF . CONTINUE 3; CONTINUE COMMAND? 
004736 012700 000036 MOV #EF . CONTINUE ,RO 
004742 104447 TRAP CSREFG 
37 004744 BCOMPLETE END 3; IF YES, NO P TABLE 
004744 103441 6cs END 
38 004746 READEF #EF .NEW 3; NEW PASS? 
004746 012700 000035 MOV #EF .NEW,RO 
004752 104447 TRAP CSREFG 
39 004754 BNCOMPLETE NEXT ; IF NOT, SKIP SETUP 
004754 103003 BCC NEXT 
40 004756 012767 177777 175204 SETUP: MOV #=-1,UUT ; INITIAL ISE LOGICAL UNIT NUMBER 
1 004764 005267 175200 NEXT: INC T : POINT TO NEXT LOGICAL UNIT 
42 004770 026767 175174 175014 CMP UUT ,LSUNIT ; ALL DONE? 
43 004776 00 BEQ ABORT 3; IF YES, END OF PASS 
GPHARD UUT,R2 : ELSE GET P TABLE 
005000 016700 175164 MOV YUT ,RO 
005004 104 TRAP C$GPHRD 
005006 MOV e 
45 005010 BNCOMPLETE NEXT ; IF NOT AVAILABLE, GET NEXT 
005010 103365 BCC NEXT 
46 005012 011267 175154 MOV @R2,VTVCSR ; SAVE NEW CSR ADDRESS 
47 005016 016767 175150 175150 MOV VTVCSR,DBUFF : AND DBUFF ADDRESS 
48 005024 062767 0000 175142 ADD #2 ,DBUF F $ 
49 005032 005067 175140 CLR ERRCNT ; CLEAR SUBPASS ERROR COUNT 
50 005036 EXIT INIT 3; AND EXIT 
5036 104432 TRAP CSEXIT 
, 005040 «WORD 110017-. 
52 005042 ABORT: DOCLN ; CLEAN UP AND ABORT THE PASS 
005042 104444 TRAP CSDCLN 
53 005044 EXIT INIT ; AND EXIT 
005044 104432 TRAP CSEXIT 
65 005046 000002 -WORD 110017-. 
66 EVEN 
68 005050 END: ENDINIT 
005050 110017: 


9 005050 104411 TRAP CSINIT 


J 3 
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INITIALIZE SECTION Tt 

1 34+ 3 

§ : THIS ROUTINE SETS UP A DELAY VARIABLE CALLED COUNT. THIS GIVES A 

z 3 DELAY OF APPROXIMATELY 25 MILLISECONDS IF USED AS FOLLOWS:- 

5 : MOV COUNT ,RO 

6 ; 18: DEC RO 

‘ ; BNE 1$ 

9 ; COUNT IS DERIVED FROM THE L CLOCK IF THERE IS ONE. OTHERWISE, THE 

19 3 ae IS ASKED TO TYPE 2 CHARACTERS ON THE CONSOLE 6 SECONDS 

14 005052 005004 SETCLK: CLR R4 3 CLEAR THE COUNTERS 

15 005054 005005 CLR R5 ; 

16 005056 GETPRI R2 3 SAVE CURRENT PRIORITY IN R2 
005056 104440 TRAP C$GPRI 
005060 010002 MOV RO,R2 

17 005062 CLOCK §L.R1 : IS THERE AN L CLOCK? 
005062 012700 000114 MOV #°L,RO 

5 104462 TRAP C$CLCK 

005070 010001 MOV RO,R1 

18 005072 103052 BCC NOCLOK ; IF NOT, BRANCH 

$y ; USE THE L CLOCK 

22 005074 LCLOCK: SETVEC 4(R1),#KLINT,#340 ; SET UP THE CLOCK VECTOR 
005074 012746 000340 MOV #340,-(SP) 
005100 012746 005162 MOV #KLINT,-(SP) 
005104 016146 000004 MOV 4(R1) ,=(SP) 
005110 012746 000003 MOV #3,-(SP) 
005114 104437 TRAP C$SVEC 
005116 062706 000010 ADD #10,SP 

23 005122 012703 000005 MOV #5 ,R3 : IF 50 HZ, Ub (MS = 5 INTERRUPTS 

24 005126 026127 000006 000062 CMP 6(R1) ,#50. ; 50 HZ CORRECT 

25 005134 001401 BEQ 10$ : IF YES, BRANCH 

$8 005136 005203 INC ; ELSE ALLOW 6 INTERRUPTS 

28 005140 10$: SETPRI #0 3 NOW DROP THE PRIORITY 
005140 012700 000000 MOV #0,RO 
005144 104441 TRAP CSSPRI 

$ 005146 012771 000100 000000 MOV #100,a(R1) 3 ALLOW INTERRUPTS 

31 005154 005204 30S: INC R4 ; COUNT THE DELAY 

32 005156 001376 BNE 30$ : 

z 005160 000417 BR NOCLOK ; IF TOO LONG, ASSUME NO CLOCK 

35 005162 005303 KLINT: DEC R3 : 5_OR 6 INTERRUPTS? 

36 005164 100401 BMI 40$ ; IF YES, 

3 005166 000002 RTI ; ELSE KEEP COUNTING 

39 005170 40$: SETPRI R2 ; RESTORE THE PRIORITY 
005170 010200 MOV R2,RO 
005172 104441 TRAP CSSPRI 

40 005174 022626 CMP (SP)+, (SP)+ ; TIDY UP THE STACK 

rt 005176 005071 000000 CLR a(R1) ; DISABLE CLOCK INTERRUPTS 


MISCELLANEOUS SECT 
INITIALIZE SECTI 


43 003308 
44 005204 
45 0052 


46 00521 
47 005216 


59 
60 005266 
6) 005272 


63 005274 

64 005302 
005302 
005306 

65 005310 

66 

67 005316 

68 20 


8eSSSs 
par ere Pers 

ENRNNL 
Ww = 
N Oo 


R 
= 
N 


o1s76r 
105205 
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000340 
005326 
0000 


60 
000003 
000010 
005354 
000001 
000004 
172266 


172262 
000000 
000100 


172224 
172212 
174634 


116 


172264 


172242 


172226 


045 


R4 


ASR R4 
BIC #140000,R4 
MoV R4, COUNT 


; USE THE CONSOLE FOR TIMING 
‘ TKS=177560 
562 


TPB=177566 
NOCLOK: 


PRINTF #TIMMSG 
10$: TSTB TKS 

BPL 10$ 

MOV TKB, TPB 

SETPRI #0 

MOV #100, TKS 
20$: INCB RS 

BNE 208 

INC R4 

BR 20$ 
TTINT: SETPRI R2 

MOV TKB, TPB 

CMP (SP5+, (SP)+ 

CLR TKS 

MOV R4, COUNT 

RTS PC 
TIMMSG: 


SETVEC #60,ATTINT,#340 ; 


he a s 100 MILLISECOND COUNTER 
BY 4 TO GIVE H MILLISECONDS 
ENSURE. 10P BITS ARE CLEAR 

AND SAVE THE COUNTER 

RETURN 


KEYBOARD STATUS > | Talat 
KEYBOARD DATA 

PRINTER STATUS REGISTER 
PRINTER DATA BUFFER 


SET UP INTERRUPT VECTOR 


MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

"TYPE 2 CHARACTERS 6 SECONDS = 
MOV 
MOV 
T 
ADD 

IS FIRST CHARACTER READY? 

IF NOT, WAIT 

NOW ECHO THE CHARACTER 

DROP THE PRIORITY 
MOV 
TRAP 

ALLOW INTERRUPTS 

START COUNTING 

UPDATE THE COUNTER 

RESTORE THE PRIORITY 
MOV 
TRAP 

cc THE ae eee 

TIDY UP THE STACK 

DISABLE INTERRUPTS 


SAVE THE coysrer 
6 SECONDS/256 = 25 MILLISECONDS 
RETURN 


T BEX 
Z sali 2 CHARACTERS 6 SECONDS APART >/ 


#340,-(SP) 


#TIMMSG,-(SP) 
#1,-(SP) 


R2,RO 
CSSPRI 


L 3 
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AUTODROP SECTION TI 

.SBTTL AUTODROP SECTION 

4 3 THIS LODE. Is EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 

5 ; THE “ADR FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 

g : SEE IF RHEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 

c : DROPPED FROM TESTING. 

9 ° 

10 005424 BGNAUTO 

" 005424 LSAUTO: : 

18 

19 005424 SETVEC #4,4NXMTRP,#PRIO7 ; SET UP NXM TRAP VECTOR 
005424 012746 000340 MOV #PRIO7,-(SP) 
005430 012746 002430 MOV #NXMTRP, = (SP) 
005434 012746 000004 MOV #4,-(SPS 
005440 012 46 000003 MOV #3,-(SP) 
005444 10443 TRAP C$SVEC 
005446 062706 000010 ADD #10,SP 

20 005452 005037 002202 CLR @4NXMF LG ; INITIALISE NXM FLAG 

21 005456 005777 174510 TST avTVCSR : TEST THE CSR ADDRESS 

22 005462 005737 002202 TST @ANXMF LG + WAS THERE A TRAP? 
005466 0014 BEQ 10$ : IF NOT, BRANCH 

24 005470 DODU —smUUT t ELSE DROP THE UNIT 
005470 016700 174474 MOV UUT RO 
005474 104451 TRAP  C$DODU 

25 005476 DOCLN ; AND TIDY UP END OF PASS 
005476 104444 TRAP  CSDCLN 

26 005500 10$:  CLRVEC #4 ; RESTORE THE DRS NXM TRAP 
005500 012700 000004 MOV #4,RO 

- 005504 104436 TRAP  CSCVEC 

28 005506 ENDAUTO 
005506 L10020: 


005506 104461 TRAP C$AUTO 


CLE 


MISCELLANEOUS SE 
ANUP CODING S$ 


a MMNMNNNNN -—— 


ess ssssesss S333 82 


Moa 
ou 
i 
ba 
s 


S Soz 3288S 
: 


g 


104412 
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002202 


174452 
000150 


177777 
174432 


174422 


174442 


-SBTTL CLEANUP CODING SECTION 


1$: 


2$: 


: 
THE ety CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED OR IF CONTROL/C IS 


TYPED DURING 
A PRESET 


REGISTER IS CLEARED, AND THE ERROR COUNT ZEROE 


BGNCLN 


-EVEN 
ENDCLN 


——— 


@DBUF F 
#150, aVTVCSR 


#-1,R1 
aVTVCSR 
2s 

R1 

1$ 
ERRCNT 
CLN 


TESTING. 
IS PERFORMED TO SET THE SCREEN TO —— THE OFFSET 


LSCLEAN:: 


HAS NXM ERROR OCCURRED? 
IF YES, SKIP CLEAN UP 
SET DBUFF C LACK 


E OLOUR TO B 
RESET OFFSET AND DO PRESET 


SET UP WAIT COUNTER 
Trees. F INISHED? 


YES, BRANCH 
ALLOW OPERATOR BREAK IN 
We or. UR TOO a 


F NOT, WAIT LONGER 
CLEAR SUBPASS ERROR COUNT 


L10021: 


TRAP 


TRAP 


C$BRK 


CSCLEAN 


104453 


005610 
000002 


000006 


116 


-SBTTL DROP UNIT SECTION 


p++ 
3 THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 


045 DROPD: 


BGNDU 


PRINTF 


EXIT 


«NL 
AS 
«LIS 
- EVEN 


ENDDU 


on 
eT ka) 
ns 


ENDMOD 


#DROPD ,RO ; ‘UNIT DROPPED* 


DU 


BEX 
= yaaa naetata DROPPED/ 


L$DU:: 


L10022: 


TRAP 


RO,-(SP) 
#DROPD , = (SP) 
at 


#6,SP 


JSJMP 
L10022-2-. 


C$DU 


000340 
002430 
000004 
000003 


000010 
002202 


174270 


174244 
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DROP UNIT SECTION 


«TITLE HARDWARE TESTS 


BGNMOD 


-SBTTL TEST 1: REGISTER NXM 


s++ 


: CHECK 


10$: 


S ARE MADE THAT AE LESSING THE DEVICE CSR AND DBUFF REGISTERS 
;_DOES NOT CAUSE AN NXM TRAP 
BGNTST 
Tis: 
SETVEC #4,ANXMTRP,APRIO7 ; SET UP NXM TRAP VECTOR nov 
MOV 
MOV 
MOV 
Hin 
CLR @ANXMF LG 3 INITIALISE NXM ERROR FLAG 
CHECK THE CSR 
BGNSUB FRARRARARRARERRRRRRRREEE at re SUBTEST 
T1208 
CLR R2 ; aS NXM ERROR FLAG 
TST avTVCSR 3; TEST THE ADDRESS 
TST R2 3; WAS Ba | A TRAP? 
BEQ 10$ : IF BRANCH 
ERRDF 100,£100 : ELSE SOREPORT THE ERROR 
TRAP 
WORD 
«WORD 
- WORD 
ENDSUB peaaeareeneeneanaaaaaeek END SUBTEST 
L10024: 
BGNSUB FRARRARRAERARRARRRERRERED BEGIN SUBTEST 
"TRAP 
CLR R2 : INITIALISE DBUFF NXM ERROR FLAG 
TST @DBUF F 3; TEST THE ADDRESS 
TST R 3; WAS THERE A TRAP? 
BEQ 20$ 3; IF NOT, BRANCH 
ERRDF  101,€101 : ELSE REPORT THE ERROR 


208: 


TRAP 
- WOR 


ENDSUB FeReeeeeReeeeeeaeeenenee hr suefesT 
L10025: 


= 


#PRI07,-(SP) 


#10,SP 


C$8SUB 
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TEST 1: REGISTER NXM 


67 005746 CLRVEC #4 ; RESTORE THE DRS NXM TRAP 

005746 012700 000004 Mov #4, RO 

005752 104436 TRAP —- CSCVEC 
68 005754 005737 002202 TST — @ANXMFLG ; DID EITHER REGISTER TRAP? 

69 005760 001410 BEQ =: 308 ; IF _NOT 
70 005762 RFLAGS RO ; CHECK THE OPERATOR FLAGS 
005762 1404421 TRAP —CSRFLA 
71 005764 032700 000040 BIT  §#1DU,RO : 1S DROPPING INHIBITED? 
72 005770 001004 BNE 30S ; IF_YES, BRANCH 
73 005772 DoDU § —UUT ELSE DROP THE UNIT 
005772 016700 174172 MOV. —-UUT, RO 
605776 104451 TRAP —- C$DODU 
% 006000 DOCLN ; AND TIDY UP END OF PASS 

006000 104444 TRAP —- CSDCLN 
75 006002 30$. EXIT TST : 

006002 104432 TRAP CSEXIT 
7g, 900004 000132 WORD L10023-. 
77 .NLIST BEX 
78 006006 «=§-«*107.—Ci<“‘é‘«‘x0G~=Ss«1004 «E100: +S ASCIZ ©/ADDRESSING THE CSR CAUSES AN NXM T 
79 006054 —'101.«S 104104 E101: © -ASCIZ ADDRESSING THE DBUFF REGISTER CAUSES AN NXM_TRAP/ 

. EVEN 
82 006136 ENDTST 
006136 L10023: 
006136 104401 TRAP —CSETST 


~+= 


HARDWARE TESTS MACRO V03.01 18-NOV-81 11:10:45 PAGE 35 


TEST 2: REGISTER ACCESS 


— 
N= COVODONOUSWwrR— 


oo 
RR 


174024 


os 
Ountw 
DIATE BS 


ANNY 


000110 


SSS SSSSESESESE 


woo 
owoon 
—— 


B55 


2 


aso S 
ON 
Ss 


3 £88 


; SET, 
; SE 


BGNTST 


BGNSUB 


MOV 
TSTB 
BMI 
ERRHRD 


BNE 
ERRHRD 


-SBTTL TEST 2: REGISTER ACCESS 


HAT 6 ARE ZERO, 
T AND CLEARED By THE DEVICE. 


aVTVCSR,R1 
R1 


1$ 
200,E200,ER200 


#110,R1 
201,£201,ER200 


Re 

aVTVCSR,R1 
#20,R1 

Re 

3$ 
202,E202,ER200 


R2 
oyTvesr R1 
yt 


Re 
203,€203,ER200 


; READ THE CSR 
; at BIT ks 


IF YES, BRANC 
; ELSE REPORT THE ERROR 


; CHECK BITS 3 AND 6 
; IF CLEAR, J 
; ELSE REPORT THE ERROR 


; ZERO WAIT COUNTER 

; READ THE CSR 

; FIELD BIT SET? 

; IF YES, BRANCH 

; ELSE WAITED TOO LONG? 


: IF NOT, KEEP WAITING 
: ELSE REPORT THE ERROR 


; ZERO WAIT COUNTER 
: READ THE CSR 

: FIELD BIT CLEAR? 

- IF Y 

: ELSE WAITED TOO LONG? 


: IF NOT, KEEP UAITING 
: ELSE REPORT THE ERROR 


; : THE a Mt ie S aot AND CHECKS ARE MADE THAT THE READY BIT IS 
R AND THAT THE FIELD BIT (4) IS 


RAKRHRRAERERARETRR ERR ary SUBTEST 
T2.1: 


CSERHRD 
200 


E200 
ER200 


CSERHRD 
201 


TRAP 
- WORD 


peeaeeenereeneeeeeeeeeee END SUBTEST 





~= 
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TEST 2: REGISTER ACCESS i 
Qoezee 104403 L10027: ap CSESUB 
39 006 e3 EXIT ‘TST 
06262 104432 TRAP CSEXIT 
up 0204 000168 “WORD L10026-. 
41 LNLIST BEX 
42 006266 10512128 £200: CASCIZ /CSR READY BIT NOT SET/ 
4% 00es14 «=«108.—~=t«<“‘<‘xz28S«13D «E901: «= CASCIZ. /CSR BITS 3 OR 6 NOT CLEAR/ 
ai 006346 105125128 E202: CASCIZ /CSR FIELD BIT DOES NOT GET SET/ 
45 006405 103.-««123-«« 122 E208: CASCIZ /CSR FIELD BIT DOES NOT GET CLEARED/ 
47 * EVEN 
48 006450 ENDTST 


006450 L10026: 
9 006450 104401 TRAP CSETST 
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TEST 3: REGISTER ADDRESS UNIQUENESS 


-SBTTL TEST 3: REGISTER ADDRESS UNIQUENESS 


;++ 
; ALL_BITS IN THE DBUFF REGISTER ARE SET AND CLEARED IN 
COMBINATIONS WITH THE EXCEPTION OF BIT 14 (READ PICTURE. STORE), 


1 
2 
3 ; 
4 ; 
‘8 : WHICH IS LEFT CLEAR. FOR EACH BIT COMBINAT ON, THE CSR IS READ 
4 : AND CHECKED TO BE UNCHANGED. BITS 0,1,2 AND 4 ARE IGNORED IN THIS 
9 — 
i 
12 006452 BGNTST 
006452 
13 006452 017701 173514 MOV aVTVCSR,R1 : SAVE CSR CONTENTS 
14 006456 042701 000027 BIC #27,R1 : CL 
iF 006462 005002 CLR R2 : INITIALISE DBUFF TEST DATA 
17 006464 010277 173504 1$: MOV R2, @DBUF F : WRITE DBUFF TEST DATA 
18 006470 017703 173476 MOV avIVCSR,R3 + READ CSR 
19 006474 042703 000027 BIC #27,R3 : CLEAR BIT 
20 006500 020301 CMP R3,R1 ; CSR UNCHANGED? 
21 006502 001405 BEQ $3 : IF YES, NEXT PATTERN 
22 006504 ERRHRD 300,£300,ER300 : ELSE REPORT THE ERROR 
006504 104456 TRAP  CSERHRD 
006506 000454 .WORD 300 
006510 006544 “WORD £300 
008512 002474 “WORD ER300 
23 006514 010301 MOV R3,R1 : SAVE NEW CSR CONTENTS 
25 006516 005202 2$: INC R2 : NEXT DATA PATTERN 
26 006520 020227 040000 CMP R2,440000 : BIT 14 SET? 
27 006524 001002 BNE 3 : IF NOT, JUMP 
28 006526 006302 ASL R2 + SKIP SOME PATTERNS 
29 006530 000755 BR 1$ + NEXT PATTERN 
31 006532 020227 140000 3$: CMP R2,#140000 : ALL DONE? 
32 006536 001352 BNE 1$ : IF NOT, NEXT PATTERN 
33 006540 EXIT TST 
006540 104432 TRAP CSEXIT 
i 006542 000042 «WORD 110030-. 
35 .NLIST BEX 
36 006544 103 123 122 €300: eASCIZ /CSR CHANGED BY WRITING TO DBUFF/ 
37 “LIST BEX 
~EVEN 
39 006604 ENDTST 
006604 L10030: 


006604 104401 TRAP CSETST 
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-SBTTL TEST 4: REGISTER BIT SET 


BITS 5 AND BITS 8 TO 15_IN THE CSR ARE SET AND CLEARED IN ALL 
COMBINATIONS. FOR EACH COMBINATION, THE CSR IS READ AND A CHECK 
MADE THAT THE RELEVANT BITS ARE SET. 

THE DBUFF REGISTER IS THEN USED IN CONJUNCTION WITH THE FIRST 
PICTURE STORE LEMENT TO ENSURE THAT CSR BITS 0 = 2 CAN BE SET. 
CSR BITS 15 AND _DBUFF BITS E CLEAR THR T, 
ENSURING THAT ONLY THE FIRST PICTURE ELEMENT IS USED. 

A ‘WRITE PICTURE hog OPERATION IS PERFORMED USING THE COLOUR 
eer ELEMENT IS THEN READ AND A CHECK MADE THAT CSR BITS 


ZERO. THIS PROCESS IS REPEATED FOR EACH COLOUR CODE, 
VERIFYING THAT THE CORRECT COLOUR IS REFLECTED IN THE CSR. 
















Be Ge Se Ge Ge Ge Ge Gee Ge Se Ge Fe Se 
So 
a 


DBNAUSWN—OOONOU Pwr 


—_ 4 I 


BGNTST oe 
BGNSUB peereaakareerkarearaeree BEGIN SUBTEST 
104402 ners TRAP  C$BSUB 
> DIRECT BIT SET 
005001 CLR R1 ; INITIALISE TEST PATTERN 
T4A: —_ BGNSEG rocceeeeeeneeee------=- BEGIN SEGMENT 
RAP 


104404 
010177 173352 MOV R1 ayTVCSR WRITE TEST PATTERN TO CSR 
017703 173346 MOV avives SR,R READ THE CSR 


R34R SAVE THE CONTENTS 
042703 000337 BIC #337,R3 CLEAR UNWANTED BITS 
MP R3,Ri CORRECT BITS WRITTEN? 


H 
ELSE REPORT THE ERROR 


C$BSEG 


BEQ 1$ 
ERRHRD 400,E400,ER400 


- WORD 
1$: ENDSEG a END SEGMENT 
10000$: 
104405 TRAP CSESEG 












062701 000400 ADD #400,R1 3; NEXT PATTERN 
103356 BCC : IF BRAN 
020127 000040 CMP R1,440 3; ELSE SECOND TIME THROUGH? 
001403 BEQ sir ¥ 
012701 000040 MOV #40,R1 > ELSE SET BIT 5 
000750 BR T4A 3; AND REPEAT PATTERNS 

23: ENDSUB FRAAAAAAARRERRERREREREEE +4 AO SUBTEST 

L100 

104403 TRAP CSESUB 


BGNSUB ReAeeeeeeeeeeeeeeeeeeee pean SUBTEST 
14.2: 
TRAP 
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44 ; 
<2 : BIT SET VIA DBUFF AND PICTURE STORE 
47 006676 005077 173270 CLR avTVCSR 3; CLEAR THE CSR 
48 006702 005001 CLR R1 : INITIALISE TEST DBUFF PATTERN 
49 006704 005003 CLR R3 : INITIALISE EXPECTED CSR PATTERN 
51 006706 1$: BGNSEG pore eee ewe e nnn nnn ne nene- BEGIN SEGMENT 
006706 104404 TRAP C$BSEG 
52 006710 010177 173260 MOV R1,@DBUF F ; WRITE DBUFF PATTERN 
53 006714 012777 040000 173252 MOV #46000 aDBUF F ; LATCH PATTERN INTO THE CSR 
54 006722 017704 173244 MOV CSR,R4 : READ THE CSR 
55 006726 010405 MOV RS 3; SAVE THE CONTENTS 
56 006730 042704 177770 BIC RRS 3; CLEAR UNWANTED BITS 
57 006734 020403 CMP R4,R3 : EXPECTED PATTERN? 
58 006736 404 BEQ $ 3; IF YES, BRANCH 
59 006740 ERRHRD 401,E401,ER401 ; ELSE REPORT THE ERROR 
006740 104456 TRAP CSERHRD 
006742 000621 «WORD 401 
006744 007067 WORD £40 
006746 002602 eWORD €ER4O1 
60 006750 2$: ENDSEG pocore een ee enn n enn - ee e= END SEGMENT 
006750 10000$: 
006750 104405 TRAP CSESEG 
62 006752 005203 INC R3 : at ar ce CSR PATTERN 
63 006754 062701 002000 ADD #2000 ,R1 3; NEXT DBUFF WRITE PATTERN 
64 006760 020127 020000 CMP fl 420000 ; ALL PATTERNS DONE? 
: 006764 001350 BNE 3; IF NOT, DO NEXT 
67 006766 EXIT TST ; ELSE END OF TEST 
006766 104432 TRAP CSEXIT 
006770 000206 eWORD 1L10031-. 
68 006772 ENDSUB pteeeeeeeekeaakeeeeeneee END SUBTEST 
006772 L10033: 
006772 104403 TRAP CSESUB 
9 
-NLIST BEX 
71 00677: 103 117 115 £400: ASCII /COMBINATION OF CSR BIT 5 AND BITS 8 = 15 COULD NOT / 
72 007057 102 105 040 eASCIZ /BE ‘ 
73 00706 103 117 115 €401: -ASCII /COMBINATION OF CSR BITS 0 = 2 COULD NOT BE SET VIA / 
74 007152 124 110 105 eASCIZ /THE DBUFF REGISTER./ 
75 -LIST BEX 
6 EVEN 
78 007176 ENDTST 
176 110031: 


007 
007176 104401 TRAP CSETST 





















HARDWARE TESTS MACRO V03.01 18-NOV-81 11:10:45 PAGE 38 
TEST 5: PICTURE STORE DATA 


-SBTTL TEST 5: PICTURE STORE DATA 







a ZERO DATA PATTERN (COLOUR BLACK) IS WRITTEN TO THE FIRST PICTURE 

; STORE L tee AND CHECKED TO READ BACK CORRECTLY IN THE CSR. THIS 
: IS REPEATED FOR ALL OF THE PICTURE STORE LOCATIONS TO FORM AN ALL 
; BLACK BACKGROUND. 


; DATA IN ALL 8 COLOUR COMBINATIONS IS THEN WRITTEN TO EACH PICTURE 
: STORE tg es IN_TURN_AND AFTER EACH WRITE OPERATION, THE CSR IS 





1 

2 

3 

4 

5 

é 

7 

8 

i 

11 : EXAMINED TO ENSURE THAT THE DATA READS BACK CORRECTLY. EACH 
12 : LOCATION IS RESET TO THE BACKGROUND COLOUR AFTER THE ABOVE 
13 : OPERATION. 
15 * THE ENTIRE TEST IS THEN REPEATED USING WHITE (DATA 7) AS THE 
16 : BACKGROUND COLOUR. 

18 
19 007200 BGNTST 

007200 TS:: 
51 007200 012777 000050 172764 MOV #50, aVTVCSR : SET VIDEO ENABLE AND ZERO OFFSET 
22 007206 005067 000266 CLR BKGND : SET BACKGROUND TO BLA 

33 007212 005004 CLR R4 : AND: EXPECTED BACKGROUND 
33 + SET PICTURE STORE TO BACKGROUND COLOUR 

16701 000260 TSA: MOV BKGND ,R1 : INITIALISE DOT NO. AND COLOUR 
12705 040000 MOV #40000,R5 + READ PICTURE STORE MASK 


1$: BGNSEG J meter ooo eorosososocsse= BEGIN SEGMENT 
4404 TRAP C$BSEG 
0177 172742 MOV R1,@DBUFF zy WRITE BACKGROUND TO DBUFF 
0577 172736 MOV R5. aDBUFF t LATCH COLOUR INTO CSR 
7702 172730 MOV ayiVcsR. R2 + READ THE 
10203 MOV R3 t SAVE THE CONTENTS 
042702 177770 BIC Re A 70, R2 : GET THE COLOUR 
204 CMP R2,R4 + BACKGROUND COLOUR? 
001404 BEQ ¢ : IF YES, BRANCH 
ERRHRD 500,£500,ER500 : ELSE REPORT THE ERROR 
104456 TRAP  CSERHRD 
000764 .WORD 500 
007502 “WORD £500 
002634 ;WORD €R500 
23: ENDSEG Jere r ro ooeooosoesososss= END SEGMENT 
10000$: 
TRAP 


005205 INC R5 ; NEXT DOT TO READ 
AND TO WRITE 


52 R1 : 
032701 000777 BIT #777,R1 + ALL DOTS DONE? 
1 1$ : IF NOT, DO NEXT 


062777 000400 172664 ADD #400, aVTVCSR 3 NEXT LINE 
103342 BCC TSA 3 IF MORE LINES, GO BACK 


t SET ALL OTHER BIT COMBINATIONS 


HARDWARE TESTS 
TEST 5: 


PICTURE 
50 

51 007310 
26 007316 


54 007320 
55 007322 


56 
5? 007326 
007326 
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STORE 

ONeree 
005002 
005001 
012705 


104404 
010177 


000040 


040000 


17 
195634 
172626 


177770 


002000 
020000 


020000 
000062 
172552 
016000 


001000 
000400 
000024 
016000 
000007 
177520 


172654 


172524 


000014 


3$: 


4$: 


5$: 


6$: 


BKGND: 


#40, aVTVCSR 
R2 


R1 
#40000,R5 


R1,a@DBUFF 
R5. aDBUFF 
avTVCSR,R3 


R3,R4 
#177770,R3 
R3,R2 


501,£501,ER501 


R2 
#2000,R1 
#20000, R1 


R2 
#50000, Ph 


R1, aDBUFF 
#16000,R1 


R5 
R1 
#1000,R1 
4$ 


#400 ,aVTVCSR 
3$ 


BKGND 


6$ 
#16000 ,BKGND 
#7,R4 


TST 


SET VIDEO ENABLE ONLY 
FIRST EXPECTED COLOUR 


INITIALISE DOT_NO. AND DATA 
READ PICTURE STORE MASK 


jrcecmeeeeeeeeeeeeea---- BEGIN SEGMENT 
TRAP 


Be Ge Se Ge Be Ss Ge Be 


WRITE COLOUR TO DBUFF 
LATCH COLOUR INTO CSR 
READ TH 

SAVE THE CONTENTS 

GET THE COLOUR 
EXPECTED VALUE? 

IF YES, BRANCH 

ELSE REPORT THE ERROR 


ssieatiacinsdiaiathit ini tinacasmnateaaasttams END SEGMENT 
10001$: 
TRAP 


fe eet ce COLOUR 
NEXT DBUFF WRITE COLOUR 

ALL COLOURS —* 

IF NOT, DO NEXT 


ELSE RESET EXPECTED COLOUR 
CLEAR COLOUR OVERFLOW BIT 
SET BACKGROUND COL 

WRITE BACKGROUND COLOUR 
CLEAR COLOUR BITS 


F NOT, DO NEXT 


; ose NEXT LINE 


F MORE, GO BACK 
WHITE BACKGROUND DONE? 


IF YES, H 
; sity FLAG WHITE BACKGROUND 
; AND REPEAT THE TEST 
; END THE TEST 


TRAP 
«WORD 


; BACKGROUND COLOUR TO WRITE 


C$BSEG 


CSERHRD 
501 


E501 
ER501 


CSESEG 


K 4 
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98 eNLIST BEX 
99 007308 102 101 193 E500 eASCIZ /BACKGROUND COLOUR READ BACK INCORRECTLY/ 
130 75 104 101 124 €501 Wt a he READ BACK INCORRECTLY FROM PICTURE STORE/ 
10 -EVEN 
103 007630 ENDTST 
007630 L10034: 
007650 104401 


TRAP 


CSETST 
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: .SBTTL TEST 6: PICTURE STORE COLUMN ADDRESSING 

4 a THIS VERIFIES THAT WRITING TO ANY COLUMN OF THE PICTURE STORE 

5 + DOES NOT AFFECT THE ONTENTS OF ANY OTHER COLUMN. SINCE EACH 

6 > LOCATION CAN HOLD A 3 BIT DATA VALUE, THE COLUMN ADDRESS LINES ARE 
i : CHECKED IN GROUPS OF 3. 

9 : COLUMN ADDRESS BITS 0 = 2 ARE CHECKED BY WRITING THE VALUES 0 - 7 I 
10 * CONSECUTIVE LOCATIONS THROUGHOUT THE PICTURE STORE AND CHECKING THAT 
i * THE DATA READS BACK CORRECTLY VIA THE CSR. 

13 + COLUMN ADDRESS BITS 3-5 Re CHECKED BY WRITING ZERO TO THE FIRST 
14 : 8 LOCATIONS, 1 TO THE NEXT 8 LOCATIONS ETC. UNTIL THE PICTURE STORE 
13 : IS FULL. THE DATA IS THEN VERIFIED VIA THE CSR. 
17 : COLUMN ADDRESS BITS 6 - 8 ARE CHECKED 1B WRITING ZERO TO THE FIRST 
18 > 64 LOCATIONS, ONE TO THE NEXT 64 LOCATIONS AND , UNTIL THE 

19 > PICTURE STORE IS FULL. THE DATA IS OOEN VERIFIED VIA THE CSR. 
21 t<- 
22 
23 007632 BGNTST 

% 007632 T6:: 
35 007632 012767 000001 000252 MOV #1,NCOLS : INITIALISE 1 COLUMN PER COLOUR 
4 : WRITE TO THE PICTURE STORE 
29 007640 005002 T6A: CLR R2 : DOT COUNTER FOR CURRENT COLOUR 

30 007642 005001 CLR R1 : INITIALISE DOT NO. AND COLOUR 

31 007644 012777 000050 172320 MOV #50, aVTVCSR t INITIALISE LINE NUMBER 

33 007652 010177 172316 1$: MOV R1,aDBUFF : WRITE COLOUR 

34 007656 005202 INC R : INCREMENT DOT COUNTER 

007660 020267 000226 CMP R2,NCOLS + READY FOR NEXT COLOUR? 

36 007664 103410 . BLO 2$ : NOT. BRANCH 

7 007666 005002 CLR R2 : ELSE CLEAR DOT COUNTER 

38 007670 062701 002000 ADD #2000,R1 : NEXT COL 

39 007674 032701 020000 BIT #20000,R1 > ALL COLOURS USED? 

40 007700 001402 BEQ : IF CH 
41 007702 042701 020000 BIC #20000,R1 : ELSE tteaR COLOUR BITS 
43 007706 005201 2s: INC R1 ; NEXT DOT POSITION 
44 007710 032701 000777 BIT #777,R1 : ALL DOTS DONE? 
45 007714 001356 BNE 1$ : if ‘Nor, NEXT DOT 
46 007716 162701 001000 SUB #1000,R1 * ELSE CLEAR DOT NUMBER 
48 007722 062777 000400 172242 ADD #400,aVTVCSR =; -NEXT LINE 

9 007730 103350 BCC 1$ : IF MORE LINES, BRANCH 

31 + READ BACK THE DATA 

53 002 : CLR 


R2 ; DOT COUNTER FOR a" COLOUR 
040000 MOV #40000,R1 ; E 


5 R4 
742 012777 000040 172222 MOV #40, avTVCSR 


54 007 701 : 
55 007740 005004 CLR : TNITIALIS EXPECTED. CO 
56 007 : INITIALISE LINE NUMBER 





me 
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010002 


& 
S S588 


SS S8S3sss 
: PERE SaNSARS 


peer eee ee ee ee ee ee 
w 
& 


CLSSSLRALKATSSISVRARANVSSET 
O00 ooCSSS OO GOOOo SOCCCOOS CoCCO 


— tt 2 a a SD 


FIS25 
Baasz 


=] 


nm 
—ONONO 


s 


172216 
172210 


177770 


000076 


000030 


0 
177400 
177532 


111 
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1 
0 
0 
0 


R1, @DBUFF 
avfVCSR,R3 
R3,R 
#177770,R3 
R3,R4 


1$ 
600.,E600 ,ER600 


R2 

R2.NCOLS 

2s 

R2 

R4 

#10,R4 

2s 

R4 

R1 

#777,R1 
68 

#1000,R1 


#400, ,aVTVCSR 
T68 


NC Le 
ar 400.NCOLS 


T6A 
TST 





é re Re Te Se eRe Pe ow Ge GE em OH GP ED EE te = BEGIN SEGMENT 
TRAP 

; LATCH COLOUR INTO CSR 
READ R 

: SAVE THE CONTENTS 
GET THE COLOUR 

: AS EXPECTED? 

: IF YES, BRANCH 

: ELSE REPORT THE ERROR 


§ ORES Seseseesaes.e END SEGMENT 
100: 


00$: 
TRAP 


ny pd DOT COUNTER 
READY FOR NEXT COLOUR? 


IF NOT, BRANCH 
ELSE CLEAR *to COUNTER 
ny XPECT NEXT COLOUR 
L COLOURS USED? 
BRAN 


if NOT. CH 
ELSE NEXT COLOUR 
NEXT DOT PATTERN 
ALL DOTS DONE? 


L 
IF NOT, NEXT DOT 
ELSE CLEAR DOT NUMBER 


NEXT LINE 
IF MORE LINES, BRANCH 


LAG NEXT 3 
ADDRESS LINES 
TO BE TESTED 
ty TOP BYTE yaee 
ELSE NEXT ADDRESS LINES 


; END OF TEST 


TRAP 
- WORD 


BEX ; NO. OF COLUMNS OF CURRENT COLOUR 
St aaa STORE COLUMN ADDRESSING ERROR/ 





ee ee ee ed ed eed ed 
WOOF WR OOOO UFwrn— 


RUNLS 


Nm 


ooo 


ooooeo 
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-SBTTL TEST 7: PICTURE STORE LINE ADDRESSING 


lee 

THIS oT ate THAT WRITING TO ANY LINE OF THE PICTURE STORE 
DOES NOT AFFECT THE CONTENTS OF ANY OTHER LINE. SINCE EACH 
LOCATION CAN HOLD A rit DATA VALUE, THE LINE ADDRESS LINES ARE 


= 
i7,) 


CHECKED IN GROUPS OF THREE. 

LINE ADDRESS BITS 0 = 2 (CSR et % 8 - 10) ARE CHECKED BY WRITING ZERO 
TO ALL LOCATIONS IN THE FIRST ONE TO ALL LOCATIONS IN THE 

NEXT LINE pd SO ON, UNTIL ALL Lins ARE WRITTEN TO. THE DATA IS THEN 
READ BACK AND VERIFIED VIA THE 

LINE ADDRESS BITS 3 - 5 (CSR BITS 11 = 13) ARE CHECKED BY WRITING 
ZERO TO THE FIRST EIGHT LINES, ONE TO THE NEXT EIGHT LINES ETC., 

T END THE PICTURE STORE. THE DATA IS THEN VERIFIED VIA THE 


LINE ADDRESS BITS 6 AND 7 (CSR BITS 14 AND 15) ARE CHECKED BY WRITING 
ZERO TO THE F FIRST 64 LI NES. ONE TO THE NEXT 64 LINES, TWO TO THE NEXT 
64 LINES, HREE TO THE LAST 64 LINES. THE PICTURE STORE DATA IS 
THEN READ BACK yh VERIFIED. 
BGNTST 
T7:: 
000001 000256 MOV #1,NLINS : INITIALISE ONE LINE PER COLOUR 


+ WRITE TO THE PICTURE STORE 
T7A: CLR R2 


LINE COUNTER FOR CURRENT COLOUR 
AND COLOUR 


CLR R1 : INITIALISE DOT NO. 
000050 171766 MOV #50, aVvTVCSR : INITIALISE LINE NUMBER 
171764 1$: MOV R1,aDBUFF : WRITE COLOUR 
INC R1 t NEXT DOT POSITION 
000777 BIT #777,R1 : ALL DOTS DONE? 
BNE : IF NOT, NEXT DOT 
001000 SUB #1000,R1 * ELSE CLEAR DOT NUMBER 
000400 171740 ADD #400,avTVCSR Ss: 
BCS 2$ : IF ALL LINES DONE, BRANCH 
INC t : ELSE INCREMENT LINE COUNTER 
000206 CMP R2,NLINS t READY FOR NEXT COLOUR? 
BLO : IF NOT, DO NEXT LINE 
CLR ng : ELSE CLEAR LINE COUNTER 
002000 ADD #2000,R1 + NEXT COLOUR 
020000 git #20000,R1 : alt COLOURS USED? 
020000 BIC #20000,R1 + ELSE CLEAR COLOUR BITS 
BR 1$ + AND DO NEXT LINE 


+ READ BACK THE DATA 


5s: CLR 


R2 LINE COUNTER FOR CURRENT COLOUR 
040000 MOV #40000,R1 


DOT 0, READ PICTURE STORE 
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57 010274 905004 CLR : INITIALISE EXPECTED COLOUR 
38 010276 012777 000040 171666 MOV RO .aVTVCSR + INITIALISE LINE NUMBER 
60 010304 17B:  BGNSEG pooeees woeeeee oo --- === BEGIN SEGMENT 
010304 104404 TRAP C$BSEG 
61 010306 010177 171662 MOV R1, aDBUFF : LATCH COLOUR INTO CSR 
6¢ 010312 017703 171654 MOV ayiVcsR, R3 + READ TH 
63 010316 010305 MOV t SAVE THE CONTENTS 
64 010320 042703 177770 BIC £7 95770.R3 + GET THE COLOUR 
65 010324 020304 CMP R3,R4 + AS EXPECTED? 
66 0105¢6 001404 BEQ 1 : IF YES, BRANCH 
67 010330 ERRHRD 700,€700,ER700 : ELSE REPORT THE ERROR 
010330 104456 TRAP  CSERHRD 
010332 001274 .WORD 700 
010334 010452 “WORD £700 
010336 003214 “WORD R700 
68 010340 1$: ENDSEG J wer ooo oor oecosesssese= END SEGMENT 
10340 100008: 
. 010340 104405 TRAP  CSESEG 
20 010342 005201 INC R1 : NEXT DATA PATTERN 
032701 000777 BIT #777,R1 + ALL DOTS DONE? 
+ Oi 3sg 001355 BNE 17B : IF “NOT, NEXT DOT 
3 010352 162701 001000 SUB #1000,R1 : ELSE CLEAR DOT NUMBER 
a 010356 062777 000400 171606 ADD #400,aVTVCSR =; NEXT LINE 
us 010364 103413 BCS 2$ : IF ALL LINES DONE, BRANCH 
78 010366 905202 INC R2 3 ELSE INCREMENT LINE COUNTER 
79 010370 020267 000054 CMP R2,NLINS t READY FOR NEXT COLOUR? 
80 010374 103743 BLO 7B : IF NOT, READ NEXT LINE 
82 010376 005002 CLR R2 : ELSE CLEAR LINE COUNTER 
83 010400 005204 INC RG : EXPECT NEXT COLOUR 
84 010402 032704 000010 BIT #10,R4 t ALL COLOURS USED? 
85 010406 001736 BEQ 17B t IF NOT, DO NEXT LINE 
86 010410 5004 CLR R4 : ELSE RESET COLOUR 
87 010412 0007 178 + AND READ NEXT LINE 
89 010414 006367 000030 2$: ASL NLINS : FLAG NEXT 3 
90 010420 006367 000024 ASL NLINS + ADDRESS LINES 
91 010424 006367 000020 ASL NLINS + TO BE TESTED 
92 010430 026727 000014 001000 CMP NLINS ,#1000 ALL FINISHED? 
93 010436 001402 BEQ 3$ + IF YES, BRANCH 
34 010440 167 177526 JMP T7A + ELSE NEXT ADDRESS LINES 
96 010444 3S: EXIT TST : END OF TEST 
010444 104432 TRAP CSEXIT 
; 010446 000050 «WORD 110036-. 
98 010450 000000 NLINS: .WORD 0 : NO. OF LINES PER COLOUR 
100 .NLIST BEX 
101 010452 120 111 103 £700: :ASCIZ /PICTURE STORE LINE ADDRESSING ERROR/ 
102 “LIST BEX 
103 * EVEN 
104 010516 ENDTST 


—~a= 
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E ADDRESSING 


010516 L10036: 
010516 104401 TRAP CSETST 


=n 
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1 

10624 

1 
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43 010634 
44 010640 
45 01064 
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escsscs 
Vowirok 
io MmNooorn 


Re 
NEN 
aR 


Ww 


000050 171440 


016000 
171432 


000007 


100000 
171404 
040000 
100000 


171370 
171362 


177770 


000010 


002000 
000010 


-SBTTL TEST 8: 8-DOT 


3++ 
3 THIS TEST CHECKS THAT IF DBUFF BIT 1 
TES ARE MADE 70 ar DOTS AT A TIME REGARDLESS OF THE 
TS 0 = 2. FOR HE R 


; WRITES 
3 VALUES OF DBUFF BI 


5_(8-DOT) IS SET, PICTURE 
EACH COMBINATION OF T 


LOWER DOT 
3 ADDRESS BITS, A NEW COLOUR IS USED AND THE 8-DOT WRITE VERIFIED. 


BGNTST 


CLR R 
CLR R 

MOV #50, aVTVCSR 
: INITIALISE FIRST 8 DOTS 


‘ MOV #16000,R1 


1$: MOV R1, @DBUFF 
INC R 
BIT #7,R1 
BNE 1$ 
: DO 8 DOT TEST 
T8A:  BGNSEG 
MOV #100000,R1 
BIS R2,R1 
BIS R3.R1 
St Oey 
BIC #100006,R1 
188: MOV 


R1, @DBUF F 
MOV avfVCSR,R4 
MOV R4_R 
BIC #177770,R4 

MP R4,R3 


e 1$ 
ERRHRD 800,E800,ER800 


1$: INC R1 
BIT #10,R1 
BEQ T88 
ENDSEG 
ADD #2000 ,R2 
INC 


R 
BIT #10,R3 


T8:: 
; INITIALISE DBUFF WRITE COLOUR 


3 INITIALISE CSR COLOUR AND DOT NO. 
; SET VIDEO ENABLE AND ZERO OFFSET 


; SET COLOUR TO WHITE 
; WRITE DOT 


Sete Se Get 
z 
m 
Bt ee 
~ 
oO 
~ 


poceooonee enone ee n------ BEGIN SEGMENT 
TRAP 

: SET 8-DOT 

: SET THE COLOUR 

: AND DOT NUMBER 

+ WRITE TO DBUFF 

+ SET READ PICTURE STORE 

+ CLEAR 8-DOT 

LATCH COLOUR INTO CSR 

READ THE CSR 

SAVE THE CONTENTS 

GET THE COLOUR 

EXPECTED COLOUR 

IF YES, BRANCH 

ELSE REPORT THE ERROR 


TRAP 
WORD 
WORD 
WORD 
: NEXT DOT ADDRESS 
; 8 DOTS READ? 
3 IF NOT, READ NEXT a oe 
180008, 
TRAP 


ELSE NEXT COLOUR 
NEXT READ COLOUR 
+ ALL COLOURS DONE? 


DOT NO. 


CS$BSEG 


ER800 


CSESEG 


wn 
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TEST 8: 8-DOT 


50 010656 001735 BEQ T8A ; IF NOT, DO NEXT 
51 01066 EXIT TST ; ELSE END OF TEST 
01066 10636 TRAP CSEXIT 
5 010662 00003 «WORD 110037 
33 eNLIST *" 
54 010664 070 040 055 €800:  .ASCIZ /8 = DOT WRITE FAILURE/ 
55 eLIST BEX 
56 -EVEN 
57 010712 ENDTST 
010712 L10037: 
010712 104401 


TRAP CSETST 


-— 
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TEST 9: PRESET 





\ .SBTTL TEST 9: PRESET 
3 3 ++ 
4 : DBUFF BITS 10 = 12 ARE SET TO THE COLOUR BLACK (ZERO) AND A PRESET 
5 : IS PERFORMED. THE READY BIT IN THE CSR IS CHECKED TO CLEAR AN 
6 : THEN TO BE SET AFTER 50 MILLISECONDS. THE PICTURE STORE IS THEN READ 
7 : TO CONFIRM THAT ALL LOCATIONS HAVE BEEN CORRECTLY SET. THE PROCESS 
8 : IS THEN REPEATED FOR EACH OF THE EIGHT SELECTABLE COLOURS. 
10 
11 010714 BGNTST 
12 010714 T9:: 
13 010714 005001 CLR R1 ; INITIALISE PRESET COLOUR 
1% 010716 005002 CLR R2 t AND EXPECTED CSR COLOUR 
16 
17 010720 T9A: — BGNSEG peceeee ee nnn ee nn noone ene BEGIN SEGMENT 
“e 010720 104404 : TRAP  C$BSEG 
19 t DO THE PRESET 
21 010722 BGNSEG J error oowoooowooocosces= BEGIN SEGMENT 
010722 104404 TRAP C$BSEG 
22 010724 010177 171244 MOV R1, @DBUFF : WRITE COLOUR TO DBUFF 
23 010730 012777 000150 171234 MOV #150,aVTVCSR : PERFORM THE PRESET 
24 010736 017703 171230 MOV avTVCSR,R3 + READ THE CSR 
25 010742 105703 TSTB + READY BIT CLEAR? 
26 010744 100004 BPL 1$ : IF YES, BRANCH 
27 010746 ERRHRD 900,€900,ER900 : ELSE REPORT THE ERROR 
010746 104456 TRAP  CSERHRD 
010750 001604 .WORD 900 
010752 011122 [WORD £900 
1 010754 003476 “WORD €ER900 
29 010756 004767 171434 1$: JSR PC,WAIT25 ; WAIT FOR 50 MILLISECONDS 
30 010762 004767 171430 JSR PC. WAIT25 ; 
31 010766 017703 171200 MOV avIVCSR,R3 * READ THE CSR 
32 010772 105703 TSTB. OR t READY SET? 
33 010774 100404 BMI 38 : IF YES, BRANCH 
34 010776 ERRHRD 901,£901,ER900 : ELSE REPORT THE ERROR 
010776 104456 TRAP CSERHRD 
011000 001605 . WORD 1 
011002 011166 "wORD £901 
011004 003476 “WORD ER900 
35 011006 23: ENDSEG J romero ooo roeesosesoss END SEGMENT 
011006 100018: 
- 011006 104405 TRAP  CSESEG 
4 t CHECK THE PICTURE STORE 
39 011010 012703 040000 ‘ MOV #40000,R3 : FIRST DOT POSITION 
40 011014 012777 000040 171150 MOV #40, aviVCSR FIRST LINE 
42 011022 010377 171146 19B: MOV R3, @DBUF F : LATCH COLOUR INTO CSR 
8 OH 1026 O17 04 171140 MOV ayiVcSR.R4 + READ THE CS 
44 0110 10405 MOV R4,R t SAVE THE CONTENTS 
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104432 
000174 
103 
103 
104 


104401 


177770 


001000 
001000 
000400 


002000 
020000 


—— = 
—nrnr 
NWW 


1 


171074 


BIC 
CMP 


BEQ 
ERRHRD 


ADD 


#177770,R4 
R4,R2 


1$ 
902,E902 ,ER902 


R3 
7ig00 Ro 
#1000,R3 


#400, aVTVCSR 
T98 


R2 
#2000,R1 
#20006,R1 
T9A 


TST 


GET THE COLOUR 
EXPECTED COLOUR? 


F YES, BRANCH 
ELSE REPORT THE ERROR 


TRAP 
~ WORD 
~ WORD 
~ WORD 

3 NEXT DOT 

; ALL DOTS DONE? 

3: IF NOT, DO NEXT 

; ELSE CLEAR THE DOT NUMBER 

3; NEXT LINE 

: IF NOT, DO NEXT 

jeweweenceweeeneeoeecses END SEGMENT 

10000$: 

TRAP 

3; NEXT EXPECTED COLOUR 

3: NEXT PRESET COLOUR 

; ALL COLOURS DONE? 

3; IF NOT, DO NEXT 

; ELSE END OF TEST 
TRAP 
.~ WORD 


BEX 

/CSR READY NOT CLEAR DURING A PRESET/ 

/CSR READY NOT SET 50 MILLISECONDS AFTER A PRESET/ 
sid NOT SET CORRECTLY AFTER A PRESET/ 


L10040: 
TRAP 


CSERHRD 
902 
E902 
ER902 


CSESEG 


CSETST 





22222222220 FFRF errr errr eee ee eee 


NOL MM « 
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1 
2 
3 
4 
5 
6 
4 
8 
9 
10 011316 
011316 
11 
12 
13 
14 011316 012777 
15 011324 0127 
16 011332 012701 
17 011336 004767 171054 
18 011342 
011342 104422 
19 011344 005301 
$3 011346 001373 
5 
24 011350 005077 170616 
25 011354 012701 000310 
26 011360 004767 171032 
27 011364 
011364 104422 
28 011366 005301 
29 011370 001373 
30 
s 
33 011372 012777 000040 
34 011400 012701 000310 
35 011404 004767 171006 
36 011410 
011410 104422 
37 011412 005301 
3 011414 001373 
40 011416 
011416 104432 
pties3 2 
41 011422 
011422 
011422 104401 


010000 170650 
77 000140 170640 
000310 


170572 


-SBTTL TEST 10: VIDEO ENABLE 


y++ 

; THE PICTURE STORE IS PR 
; THE CSR (VIDEO ENABLE 
; WHICH TIME THE MON 
; REENABLED FOR A FURTHER 


BGNTST 


: PRESET TO WHITE, VIDEO ENABLED 
MOV #10000, @DBUF F 
140, aVTVCSR 


MOV # 
MOV 

1$: JSR 
BREAK 
DEC R1 
BNE 1$ 


: CLEAR VIDEO ENABLE 


CLR ayTVCSR 
PC ,WAIT25 


DEC R1 
BNE 2s 


+ REENABLE VIDEO 
MOV 
MO 
3$: JSR 


EXIT TST 


ENDTST 


oR 
PC ,WAIT25 


#40 ,QVTVCSR 
PC,WAIT25 


T10:: 


SET PRESET COLOUR BLUE 


PERFORM THE PRESET 
WAIT FOR 5 SECONDS 
25 MILLISECOND DELAY 


ALLOW OPERATOR BREAK-IN 


TIME UP? 
IF NOT, WAIT LONGER 


CLEAR VIDEO ENABLE 
WAIT FOR 5 SECONDS 
25 MILLISECOND DELAY 


ALLOW OPERATOR BREAK-IN 


TIME UP? 
IF NOT, WAIT LONGER 


; SET VIDEO ENABLE 
T FOR 5 SECOND 


SE Ss 
5 MILLISECOND DELAY 


ALLOW OPERATOR BREAK-IN 


: TIME UP? 
; IF NOT, WAIT LONGER 


END OF TEST 


L10041: 


TO BLUE FOR FIVE SECONDS. BIT 5 OF 
HEN CLEARED FOR FIVE SECONDS, DURING 
AY es, BE DARK. THE DISPLAY IS THEN 


TRAP 


TRAP 


TRAP 


TRAP 
- WORD 


TRAP 


C$BRK 


C$BRK 


CSBRK 
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TEST 11: DISPLAY ADDRESSING 


-SBTTL TEST 11: DISPLAY ADDRESSING 

THE PICTURE STORE IS PRESET TO BLUE. LINES OF MAGENTA ARE THEN 
WRITTEN FROM THE TOP OF THE DISPLAY UNTIL THE WHOLE SCREEN HAS 

Seer ge COLOUR. THE TRANSITION SHOULD BE SMOOTH, TAKING APPROXIMATELY 


COLUMNS OF WHITE ARE THEN WRITTEN FROM THE LEFT SIDE OF THE DISPLAY 
UNTIL THE SCREEN IS ALL WHITE. AGAIN THE TRANSITION Byer BE SMOOTH. 


1 

2 

3 

4 

5 

6 

7 

3 

10 IF THE DISPLAY DOES NOT APPEAR AS DESCRIBED HERE ADDRESSING 

1 FAULT ON THE OUTPUT SIDE OF THE DEVICE IS INDICATED 

13 

14 011424 BGNTST 

wm 011424 T11:: 

16 : PRESET SCREEN TO BLUE 

18 011424 012777 010000 170542 ° MOV #10000, aDBUFF =; SET PRESET COLOUR BLUE 

19 011432 012777 000150 170532 MOV #150,aVTVCSR =: PERFORM THE PRESET 

20 011440 012701 177777 MOV #-1,R1 : SET UP WAIT COUNTER 

21 011444 105777 170522 1$: TSTB = aVTVCSR + READY SET? 

22 011450 100403 BMI 2$ : IF YES, BRANCH 

23 011452 BREAK : ELSE ALLOW OPERATOR BREAK IN 
011452 104422 C$BRK 

24 011454 005301 DEC R1 : WAITED TOO LONG? 

25 011456 001372 BNE 1$ : IF NOT, WAIT LONGER 

4 + MOVE MAGENTA DOWN THE DISPLAY 

29 011460 012777 000040 170504 3s: MOV #40 avTVCSR : START AT LINE 0 

30 011466 012701 012000 MOV #12000,R : SET WRITE COLOUR TO MAGENTA 

32 011472 010177 170476 3$: MOV R1, @DBUF F : WRITE DOT 

33 011476 005201 INC R1 + NEXT DOT ADDRESS 

34 011500 032701 000777 BIT #777,R1 > LINE FINISHED? 

35 011504 001372 BNE 3$ : IF NOT, DO NEXT DOT 

37 011506 004767 170704 JSR PC,WAIT25 : WAIT FOR 25 MILLISECONDS 

38 011512 BREAK + ALLOW OPERATOR BREAK IN 

* 011512 104422 TRAP — C$BRK 

40 011514 042701 001000 BIC #1000,R1 ; RESET TO START OF LINE 

41 011520 062777 000400 170444 ADD #400,aVTVCSR =; AND NEXT LINE 

4¢ 011526 103361 ; BCC 3$ : IF MORE LINES, GO BACK 

44 + MOVE WHITE ACROSS THE DISPLAY 

46 011530 012777 000040 170434 ° MOV #40, aVTVCSR : START AT LINE 0 

47 011536 012701 016000 MOV #16600,R1 : SET WRITE COLOUR TO WHITE 

49 011542 010177 170426 5$: MOV @DBUF F : WRITE DOT 

50 011546 062777 000400 170416 ADD FOO BY TVCSR : NEXT LINE ADDRESS 

31 011554 103372 BCC 54 : IF MORE LINES, GO BACK 

5 011556 016700 170424 MOV COUNT ,RO : GET 25 MILLISECOND COUNT 

54 011562 006200 ASR RO : MAKE IT 12 MILLISECONDS 


= 
2 


o wi Vn — 
AVZSSS NRA 
CoCOooCO ocCcOoO ocoOOo°” 
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SPLAY ADDRESSING 
564 


005300 6$: DEC rt ; WAIT 12 MILLISECONDS 

566 001376 BNE 6 : : 

2f8 BREAK ; ALLOW OPERATOR BREAK IN 

70 104422 TRAP C$BRK 
572 005201 INC Ri : NEXT COLUMN 

574 032701 000777 BIT #777,R1 ; ALL COLUMNS DONE? 

600 001360 BNE 5$ ; IF NOT, DO NEXT 

602 EXIT TST : ELSE END OF TEST 

602 104432 TRAP CSEXIT 
604 000002 «WORD 110042-. 
606 ENDTST 

606 L10042: 


606 104401 TRAP CSETST 
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TEST 12: OFFSET 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 011610 
011610 
16 
17 
18 
19 011610 
20 011616 
21 O11 6e8 
22 011630 
23 011634 
24 011636 
011636 
25 011640 
26 011642 
27 
28 
29 
30 011644 
31 011650 
32 011654 
33 011660 
34 011664 
35 011670 
36 011674 
37 011676 
38 011702 
39 011706 
011706 
40 
41 011710 
42 011714 
43 
44 
45 
46 011716 
47 011722 
48 ELS 
49 0117 
50 011736 
51 011742 
26 011746 
53 011752 
54 011756 


~ Seeee 
ro) 
Ww 


-SSoo0o°0°0o 
COW 22 = 
M—MNONOr 
NNW 
anonoon 

“Nr 


010000 
000140 
177777 
170336 


ee i | 
Ws 
= 


Sains 
V==8 


ee 
Ww 


s 


= 
Ss 
o— 
w 
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N 
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170356 
170346 


170236 


~SBTTL TEST 12: OFFSET 


++ 
; ay PICTURE STORE IS PRESET TO BLUE. A LINE OF MAGENTA IS Lg WRITTEN 
THE TOP OF THE DISPLAY AND THE OFFSET REGISTER a O MOVE 


: TRE LINE DOUN ONE POSITION THIS: 18 REPEA 


: HANGED TO WH 
: UNTIL THE SCREEN IS A 
: IN BOTH CASES 

: ACROSS THE SCREEN. AN 
: IN THE Ores REGISTER. 


Sete Ge Se Sete Se Se Ge Se 
4 
22=r 
m 
2 
tn] 


BGNTST 


: PRESET SCREEN TO BLUE 


MOV #10000, @pBUFF 
MOV #140, aVTVCSR 
MOV #-1,R1 
1$: TSTB  aVTVCSR 
BMI 2$ 
BREAK 
DEC R1 
BNE 1$ 
+ MOVE MAGENTA DOWN THE DISPLAY 
5s: MOV #177450,R1 
3$: MOV R1,avVTVCSR 
MOV #112000, R2 
5$: MOV R2, aDBUF F 
ADD #10,R2 


BNE 

SUB #1000,R2 
JSR PC ,WAIT25 
BREAK 

SUB #400,R1 
BCC 3$ 


: MOVE WHITE UP 


THE DISPLAY 
#450,R1 


V #40,R3 
7$: BIT #20, 8VTVCSR 
BNE 7 
MOV R1,avTVCSR 
MOV R3,aVIVCSR 
MOV #116000,R2 
8$: MOV R2, aDBUFF 
ADD #16,R2 


NEXT DO 
; ae WRITTEN? 


TED_UNTIL T 
OUT 7 $ 


Ti2:: 


A RFORA THE’ PRESET BLUE 


IF YES, BRANCH 
ELSE ALLOW OPERATOR BREAK IN 


: ry TOO LONG? 


F NOT, WAIT LONGER 


; OFFSET LAST LINE TO TOP 


WRITE THE OFFSET 


; SET FIRST 8 DOTS MAGENTA 
WRITE 8 DOTS 


E DOTS 
LEAR DOT NUMBER 
WAIT FOR 25 MILLISECONDS 


; ALLOW OPERATOR BREAK~IN 


TRAP 


neous THE OFFSET 
IF MORE LINES, BRANCH 


Sin me 


HE WHOLE 
SHOULD TAKE AB ECONDS. THE DISPLAY IS 
hy BOTTOM USING THE SAME PROCESS, 


nie 
THE LINE BETWEEN THE COLOURS SHOULD MOVE SMOOTHLY 
ANY UNEVEN MOVEMENT INDICATES A PROBLEM 


C$BRK 


C$BRK 


HARDWARE TESTS 
TEST 12: OFFSET 


= 
_ 
“ 
o 
nm 


5 017 
57 O11770 
58 011774 
59 012000 
012000 
60 
osm 
83 012012 
re 012014 
66 012022 
012022 
012024 
67 012026 
012026 
012026 
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01771 


SER | 


001000 


1000 
170416 


000400 
000400 


000010 170150 


EXIT 


ENDTST 


#1000,R2 


$ 
#1000 R 
C,WAIT25 


#400, a 
#400,R 


7 
#10,aVTVCSR 


TST 


Bete te te te 


LINE WRITTEN? 
IF NOT, DO MORE DOTS 
ELSE CLEAR THE DOT NUMBER 
WAIT FOR 25 MILLISECONDS 
ALLOW OPERATOR BREAK-IN 
TRAP 
: NEXT WRITE LINE 
: INCREASE THE OFFSET 
IF MORE LINES, BRANCH 
CLEAR THE OFFSET REGISTER 
TRAP 
. WORD 
L10043: 
TRAP 


C$BRK 


CSEXIT 
L1004 


CSETST 
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-SBTTL TEST 13: PATTERN GENERATOR 


+ 

THIS TEST IS FOR SETTING UP AND CHECKING THE OUTPUT TO THE DISPLAY 
MONITOR. NINE PATTERNS ARE PROVIDED - EIGHT TO PRESET THE SCREEN 
TO EACH POSSIBLE COLOUR, AND ONE TO OUTPUT A CROSS HATCH OF 

COLUMN BY 16 LINE RECTANGLES. THE NUMBER OF RECTANGLES DISPLAYED 
WILL DEPEND ON THE DEVICE CONFIGURATION. 


1 NORMALLY, THE NINE PATTERNS ARE DISPLAYED IN TURN, EACH REMAINING 
1 ON THE SCREEN FOR APPROXIMATELY FIVE SECONDS. R, IF 
1 SELECTION IS SELECTED AT START UP, EACH PATTERN IS KEPT DISPLAYED 
UNTIL THE RETURN KEY IS HIT ON THE OPERATOR CONSOLE. 
1 
16 012030 BGNTST 
: 012030 T13:: 
1 012030 005001 CLR R1 : FIRST PRESET COLOUR 
012032 010177 170136 T13A: MOV R1, @DBUF F : SET THE PRESET COLOUR 
012036 012777 000150 170126 MOV #150,avTVCSR  : DO THE PRESET 


: WAIT FOR NEXT PATTERN 


MoMrnr 


012044 005767 170114 5s: TST MANVEN : RUN MANUALLY? 
012050 001413 BEQ 3$ : IF NOT, BRANCH 
012052 MANUAL + MANUAL ALLOWED? 
012052 104450 TRAP  CSMANI 
012054 BNCOMPLETE 3$ : IF NOT, BRANCH 
012054 103011 Bcc 38 
012056 GMANID READY,FLAG,A,377.0.1.VYES ; WAIT FOR <CR> 
012056 104443 TRAP CSGMAN 
012 000406 BR 10000$ 
012062 012302 ,WORD FLAG 
012964 000152 “WORD TSCODE 
01e0% 012304 “WORD READY 
012070 000377 “WORD 377 
012072 000000 “WORD TSLOLIM 
012074 000001 “WORD TSHILIM 
012076 10000S: 
30 012076 000407 BR 5$ : CONTINUE 
32 912100 012704 000310 3S: MOV #200. .R4 : WAIT FOR 5 SECONDS 
33 012104 004767 170306 4$: JSR PC, WAIT25 ; 
34 012110 BREAK t ALLOW OPERATOR BREAK-IN 
012110 104422 TRAP  C$BRK 
35 gigi12 005304 DEC RG : TIME UP? 
36 012114 001373 BNE 4$ : IF NOT, WAIT LONGER 
38 + NEXT PATTERN | 
40 012116 032701 020000 Ss: BIT #20000,R1 : ALL PATTERNS DONE? 
41 012122 001065 BNE 12$ : IF YES, END TEST 
4¢ Oigi¢4 062 01 002000 ADD #2000,R1 * ELSE NEXT COLOUR | 
4 121 0 032701 620000 BIT it 9006.R1 + ALL PRESETS DONE? 
44 012134 0017 BEQ 11 : IF NOT, NEXT COLOUR 
| 
| 
| 


WARDWARE TESTS 
TEST 13: PATTERN GENERATOR 
45 
Son 
a8 gistes 
50 012150 
51 012154 
26 012160 
5 Bis es 
0121 
54 012164 
55 012166 
56 
57 
58 
59 012170 
60 012174 
61 012200 
oe 012204 
63 012210 
64 012212 
65 
66 
67 
68 012214 
69 012220 
70 012224 
71 012230 
72 012234 
73 012236 
Le 012242 
76 012244 
77 Bissee 
78 012254 
79 012260 
80 012264 
81 815366 
ag 01227 
a 012274 
85 012276 
012276 
012300 
86 
87 012302 
88 
89 
90 012304 
91 
92 
93 012344 
012344 
012344 


MACRO x05 01 18-NOV-81 11: 


104401 


122 


10:45 PAGE 46-1 


: GENERATE CROSS HATCH 


170022 
6$: 


WRITE 
7$: 
8$: 


: WRITE 


9s: 
10S: 


167720 11$: 


12$: 


FLAG: 


105 READY: 


CLR 
MOV #14 PeVIVCSR 
MOV #-1,A1 

TST8 SVTVCSR 

BMI 7$ 

BREAK 

DEC R1 

BNE 6$ 

FULL LINE 

MOV #116000,R2 
MOV R2, aDBUF F 
ADD #10,R2 

BIT #1000,R2 
BEQ Ag 

BR 11$ 

PARTIAL LINE 

MOV #16000,R2 
MOV Re a@DBUFF 

ADD #31.,R2 

MOV 2. FF 
INC 2 

BIT #1000,R2 
BEQ 10$ 

ADD #400, avTVCSR 
BCS 2$ 


MOV @VTVCSR RS 
BIC gi7esr? °R3 


CMP &3.47400 
7$ 


BEQ 

BR 9S 

EXIT TST 

-WORD 0 

NLIST BEX 

eASCIZ /PRESS ‘RETURN’ 
LIST BEX 

-EVEN 

ENDTST 


Se te Se Se Se O: 


SET PRESET COLOUR BLACK 
DO THE PRESET 


ESE 
SET UP WAIT COUNTER 
READY SET? 
IF YES, 


BRANCH 
ELSE ALLOW OPERATOR BREAK IN 


WAITED TOO LONG? 
IF NOT, WAIT LONGER 


; INITIALISE DOT NO. WHITE 
WRITE 8 DO 


IF NOT, 
ELSE DO NEXT LINE 


SET DOT 0, — WHITE 
WRITE FIRST 

END OF S$ QUARE 

WRITE PENULTIMATE DOT 
NEXT DOT 

LINE FINISHED? 

IF NOT, GO BACK 


NEXT LINE 
; IF FINISHED, GO AND WAIT 
ELSE READ CSR 


GET LINE NO. LOW BITS 
IF ZERO. DO FULL LINE 
LAST LINE OF SQUARE? 
if YES. DO FULL LINE 
ELSE PARTIAL LINE 


FOR NEXT PATTERN/ 


L10044: 


TRAP 


C$BRK 


CSETS 


T 
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TEST 13: PATTERN GENERATOR 


J 012346 ENDMOD 
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TEST 13: PATTERN GENERATOR 


13 ~ TITLE PARAMETER CODING 
{3 .SBTTL HARDWARE PARAMETER CODING SECTION 
rk 012346 BGNMOD 
rf: $+ 
46 : THE HARDWARE PARAMETER CODING SECTION tyes MACROS 
47 3 THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
48 3: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
49 3 bd a ty BY THE SUPERVISOR AS DATA STRUCTURES. THE 
50 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
2 3: WITH THE LOPERAT OR. 
53 r 
54 012346 BGNHRD 
012346 000004 ~WORD L10045=LSHARD/2 
55 012350 LSHARD:: 
65 012350 GPRMA GETADR,0,0,160000,177776, YES 
012350 000031 -WORD TSCODE 
012352 012360 -WORD GETADR 
012354 160000 -WORD TSLOLIM 
012356 177776 -WORD TSHILIM 
67 
68 012360 ENDHRD 
EVEN 
012360 110045: 
77 012360 i26 124 126 GETADR: .ASCIZ /VTV31-K ADDRESS/ 
012363 06. 061 055 
012366 113 040 101 
012371 104 104 I$ 
012374 105 123 12 
012377 000 
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SOFTWARE PARAMETER CODING SECTION 
; ~SBTTL SOFTWARE PARAMETER CODING SECTION 
4 ; “THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
5 3: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
6 3; MACROS ARE NOT EXECUTED AS MACHINE ghd kL. BUT ARE 
7 3 INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
8 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNI CATIONS 
16 3; WITH THE OPERATOR. 
11 
12 012400 BGNSFT 
012400 000010 «WORD L10046-L$SOF T/2 
13 012402 LSSOFT:: 
22 012402 GPRML MANINT,0O,1,YES 
012402 000130 -WORD TSCODE 
012404 012422 -WORD MANINT 
012406 000001 -WORD 1 
23 012410 GPRMD GETMAX,2,D0,377,0,255..YES 
012410 001052 -WORD TSCODE 
012412 012450 WORD 65 TAX 
012414 000377. eWORD 377 
012416 000000 -WORD TSLOLIM 
3 012420 000377 «WORD TSHILIM 
25 EVEN 
26 
27 012422 ENDSFT 
EVEN 
012422 L10046: 
28 
29 
36 eNLIST BEX 
37 orsees 122 125 116 MANINT: .ASCIZ /RUN TEST 13 MANUALLY?/ 
38 012450 101 125 124 GETMAX: .ASCIZ /AUTODROP ERROR COUNT/ 
39 -LIST BEX 
re EVEN 
3 012476 SPATCH:: 
50 -BLKW 50. ; PATCH AREA 
51 -BLKB 400-<.8&377> 3: LASTAD SHIFT FOR LSI BUG 
52 013000 LASTAD am 
013000 BE aK eWORD TSFREE 
013002 00000 -WORD TSSIZE 
1 LSLAST:: 


013004 
53 013004 ENDMOD 
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SOFTWARE PARAMETER CODING SECTION 


000000 
000001 
174000 


000001 


. END 


BGNSETUP 
BGNPTAB 


. WORD 
ENDPTAB 


ENDSETUP 
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174000 


1 


L10047: 


L10051: 


0 
L10051-./2=1 


PARAMETER CODING 
SYMBOL TABLE 
ABITS O0ee08 G 
ABORT 00 O36 
R = 000020 G 
ASSEMB= 000010 
ITO = 000001 G 
BITOO = 000001 G 
BITO1 = 000002 G 
oI = 000004 G 
BITOS = 000010 G 
BITO4 = 000020 G 
BITOS = 000040 G 
BITO6 = 000100 G 
BITO7 = 000200 G 
BITO8 = 000400 G 
BITO9 = 001000 G 
BIT1 = 000002 G 
BIT10 = 002000 G 
BIT11 = 004000 G 
BIT12 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BIT15 = 100000 G 
BIT2 = 000004 G 
BIT3 = 000010 G 
BIT4 = 000020 G 
BITS = 000040 G 
BIT6 = 000100 G 
BIT? = 000200 G 
BIT8 = 000400 G 
BIT9 = 001000 G 
BKGND 007500 
BOE = 000400 G 
CHKMAX 002256 G 
CONT 004736 
COUNT 002206 G 
CSAU = nat 
CSAUTO= 000061 
CSBRK = 000022 
oe 000004 
etre: Sas 
CSCLEA= 00001 
C$CLOS= 000035 
CS$CLP1= 000006 
CSCVEC= 000036 
oe rs 
Ber Ss 
= 
See t= 000003 
CSERDF= 000055 
se 000056 
CSERAO= 000060 
000057 


CSERSO= 
CSESCA= 000010 
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CSESEG= 00 
CSESUB= 
CSETST= 69 
CSEXIT 


° 
a 
mn 
=" 
v 
So 
So 
iJ 
~ 
=—SQONVWINANM—Wiu 


EF .CON= $36 G 
EF .NEW= 3 G 
F .PWR= 34 G 
Eas GUN & 
END 5 20 
er Balt § 
ER eOD 474 G 
ER4OO 550 G 
ER4O1 : 602 G 
500 6 G 
ER5OI 3 ¢ 
98} SE § 
ERO00 % & 
ERO02 003850 
EVL = G 


448 = 000035 
E100 Bp eRe 
E101 6054 
E200 266 
E2008 003636 
E201 006314 
E 8 00634 
E 00640 
E300 006544 
E3008 00366 
E500C 003776 
E400 006774 
E4008 00403 
E401 0070: 
die ile 
E501 $7899 
E600 010114 
oe Situs 
E8008 004287 
E800C 004544 
E900 Ons 
E9008 00442 
E901 911196 
E902 b13¢ 
FLAG 012 f 
FSAU_ = 00001 
FSAUTO= 000020 
$BGN = 000040 
SCLEA= 000007 
FSDU = 000016 
END = 000041 
SHARD= 000004 
SHW = 013 
FSINIT= 
SUMP = 5 
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SYMBOL TABLE 


Sooooooooeooeo 
ReSterTe 
eo 


ss 


AAQAQAQAAAAACG 


TIMMSG 005354 


000000 
ERRORS DETECTED: 0 


VIRTUAL MEMORY User att te woes 81 PAGES) 


DYNAMIC MEMORY AVAILABLE 
ZVTVAO.BIN,ZVTVAO.LST=RT. 


FOR 7 
MAC/M, ZVTVAO. SRC 
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17756 


TPS 
TTINT 
TSAR 


TSSEK1= 010001 
TSSIZE= 000003 


rus com 


TSSPTA= 010050 
T$$SEG= 010000 
TSS$SOF= 010046 


3 


UUT 
VTVCSR 
WAIT25 


XSALWA= 
XSFALS= 
XSOF F S= 
XSTRUE= 
SPATCH 


se 
oH 
=o 


sprees 
MmMOor 
aa a 


Ssss 
es 


S233388s 
hes 
Sone 
a o 


rs 


4 COoOooocoeooo: 
ceed eb eed Oh ab 
MN 
== NNQUUW=— 
MOLONOCEN 
a (>) a 


anos 
AAQAG 


902 
00241 
000000 
000040 
000400 
see § 
012476 G 





